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The Purpose of This Book 

Traditionally, home computers, when first purchased, have been used as 
interesting but expensive game-playing devices. That they have not been 
more frequently put to a more serious purpose stemmed from the lack 
of a readily available, comprehensive set of home application programs 
that were easy to use and understand and that satisfied the practical re- 
quirements of the home. The objective of this book is to provide a set 
of programs that will make your computer start paying for itself the 
moment it crosses your threshold. The programs provide a good cross 
section of practical applications that will make your computer benefi- 
cial to all family members. The applications have been designed so as 
not to rely upon the availability of tape or disk-storage devices or upon 
any other features that may not be easily come by. As you gain 
familiarity with computer use, moreover, modification of these pro- 
grams to utilize features of your particular machine should present few 
difficulties. 

The Book's Format 

The computer applications given here have been formatted in a way 
that I hope will be of greatest value to you. Each application has been 
supplied with detailed information/documentation in the following 
form: 

1. A narrative description of the application includes a brief explana- 
tion of the program's functions, data entry procedures, data 
formats, output descriptions, and suggested enhancements or com- 
ments, when appropriate. 

2. A complete listing of the program is provided with remarks and 
data necessary for initialization. All line numbers have been in- 
cremented by ten (10) to insure ease of data entry and extension 
or modification. 

3 . A listing of sample data used for the example run illustrates the 
form of data entry and the results it produces. 

4. Examples of outputs from the program using the sample data are 
shown. Whenever possible, the various optional outputs of the pro- 
gram are all shown. 

5. All major variable names (symbols) used by the program are ex- 
plained. In addition, all features of the program that may not be 
available in the tiniest versions of BASIC are listed and explained. 



Entering/Interpreting the Programs 

The programming approach decided upon for this book is meant to 
facilitate your ease of program interpretation and extension or modifi- 
cation. It does not take advantage of many language facilities that 
minimize program length or processing speed. Concise, highly efficient 
routines have been avoided as a rule because they generally result in a 
lack of interpretive clarity and the modularity necessary to facilitate 
modification and change. Indentation and comments have been used 
liberally to assist you in interpretation of the program's operation. 

Initially, the programs should be entered and tested exactly as 
they are shown. As you gain familiarity with your machine and its 
language, you may wish to take advantage of its various memory and 
time-saving features, such as (1) eliminating extraneous spaces in the 
instructions, (2) variable dimensioning of arrays and FOR loops, and 
(3) placing multiple statements on a line (when clarity is not affected). 
Once a program has been entered, it should be thoroughly tested to 
insure your understanding of the data formats and the machine accept- 
ability of all program instructions. 

Compatibility of Language Features 

The program listings provided should pose few, if any, compatibility 
difficulties in a wide range of microcomputers and their varying versions 
of the BASIC language. The appendix provides information concerning 
several language features used in the programs as an aid in surmounting 
difficulties. 
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CHECK BOOK BALANCE 

Description 

This program allows your computer to assist you in that onerous 
monthly task of balancing your checkbook against your bank statement. 
It allows you to enter deposits and checks outstanding to insure that all 
items are included in your balance. All required data is entered at the 
keyboard in response to program prompting. 

Functions of the Program 

The program first initializes the data for balances, deposits outstanding, 
and checks outstanding. As these items are entered, their total is accu- 
mulated. Following the completion of all required entries, the results 
are printed, and the final lines of output show the comparison between 
the bank's figures and your own. 

Instructions for Use 

Run the program and respond to the questions asked. You will need 
your bank statement and your checkbook stubs. 

Data Entry 

All data is entered in response to program prompting. 

Output Description 

See example output. The form of the output is similar to that provided 
for your use on the reverse of most bank statements. 

Comments 

The program will accept up to 20 deposits outstanding and 100 checks 
outstanding. 



20 REM CHECKBOOK BALANCING PROGRAM 

30 REM *********** DATA INITIALIZATION ********************* 

40 Ml=20 

50 M2=100 

60 DIM D(20) 

70 DIM Cl$(100) 

80 DIM C<100) 

90 PRINT "ENTER THE DATE OF THE STATEMENT" 

100 INPUT D$ 

110 PRINT "ENTER BALANCE FROM BANK STATEMENT" 

120 INPUT B 

130 PRINT "ENTER DEPOSITS NOT CREDITED ON STATEMENT (RETURN WHEN DONE)' 

140 FOR I = 1 TO Ml 

150 D(I)=0 

160 INPUT D(I) 
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170 IF D(I)=0 THEN 200 

180 D0=D0+D<I) 

190 NEXT I 

200 PRINT "ENTER CHECKS OUTSTANDING <CHECK NBR.AMOUNT" 

210 PRINT "PRESS RETURN WHEN DONE" 

220 M1=I-1 

230 FOR I = 1 TO M2 

240 C1*<I)=" " 

250 C(I)=0 

260 INPUT C1$(I)?C(I) 

270 IF C1$<I>=" " THEN 300 

280 CO=CO+C<I) 

290 NEXT I 

300 PRINT "SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR " 

310 PRINT "CHECKBOOK ( DONT FORGET OTHER ADDS AND SUBTRACTS " 

320 PRINT "SUCH AS AUTOMATIC WITHDRAWALS. CHECK CHARGES. ETC." 

330 M2=I-1 

340 PRINT 

350 PRINT "ENTER THE CURRENT BALANCE SHOWN IN YOUR CHECKBOOK" 

360 INPUT Bl 

370 REM *********** PRINT OF RESULTS **************** 

380 PRINT 

390 PRINT "ALIGN FOR OUTPUT" 

400 INPUT A* 

410 PRINT 

420 PRINT TAB(20) 5D$ 

430 PRINT 

440 PRINT "BALANCE FROM STATEMENT " 5 TAB<30) ', "*" t B 

450 PRINT 

460 PRINT "RECENT DEPOSITS NOT SHOWN" 

470 FOR 1=1 TO Ml 

480 PRINT TAB(25)5D(I) 

490 NEXT I 

500 PRINT TAB<25>5" " 

510 PRINT • SUBTOTAL DEPOSITS" 5TAB<30) f "$" 5D0 

520 PRINT 

530 PRINT TAB(30) i ■==========■ 

540 PRINT " TOTAL " »TAB<30 ) 5 •$ " 5D0+B 

550 PRINT 

560 PRINT "CHECKS OUTSTANDING" 

570 PRINT TAB( 18) » "CHK" »TAB(25) ? "AMOUNT" 

580 FOR 1=1 TO M2 

590 PRINT TAB(18) ;Cl$(I)fTAB(25) 5C(I) 

600 NEXT I 

610 PRINT TAB<25)?" " 

620 PRINT " SUBTOTAL CHECKS OUT " »TAB<30 ) r " $ " i CO 
630 PRINT 

650 PRINT "BALANCE EXPECTED IN CHECKBOOK" »TAB (30) i "$"? DO+B-CO 

660 PRINT "BALANCE IN CHECKBOOK" ?TAB<30) 5 '$" JB1 

670 PRINT ■***#*****#*#****#**#************#***#**#**#***##*##" 

680 PRINT " DIFFERENCE " i TAB< 30) ', " *• .DO +B-C0-B1 

690 REM ************** PROGRAM TERMINATION POINT ************ 

700 PRINT 

710 PRINT 

720 STOP 



RUN 
ENTER 
f JUL 
ENTER 
? 200 



THE DATE OF THE STATEMENT 

20 1980 

BALANCE FROM BANK STATEMENT 
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ENTER DEPOSITS NOT CREDITED ON STATEMENT (RETURN WHEN DONE) 
? 100 
? 100 

f 

ENTER CHECKS OUTSTANDING (CHECK NBR* AMOUNT 

PRESS RETURN WHEN DONE 

? llllrlO 

? 2222f10 

? 3333*10 

-? 

SUBTRACT SERVICE AND OTHER CHARGES FROM YOUR 
CHECKBOOK ( DONT FORGET OTHER ADDS AND SUBTRACTS 
SUCH AS AUTOMATIC WITHDRAWALS , CHECK CHARGES , ETC. 

ENTER THE CURRENT BALANCE SHOWN IN YOUR CHECKBOOK 
? 369 

ALIGN FOR OUTPUT 



JUL 20 1980 

BALANCE FROM STATEMENT * 200 

RECENT DEPOSITS NOT SHOWN 

100 

:ioo 



SUBTOTAL DEPOSITS 



* 200 



TOTAL 



* 400 



CHECK'S OUTSTANDING 



CHK 


AMOUNT 


1111 


10 


2^22 


10 


3333 


10 



SUBTOTAL CHECKS OUT 



$ 30 



BALANCE EXPECTED IN CHECKBOOK $ 370 
BALANCE IN CHECKBOOK $ 369 

DIFFERENCE $ 1 

BREAK IN 720 



MAJOR 

I 

I NAME 

I 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I- 



SYMBOL TABLE - CHECK BOOK BALANCE 
.. DESCRIPTION 



D( 

Cl( 

C( 

D$ 

B 

Ml 

M2 

Bl 

DO 

CO 



ARRAY OF DEPOSITS NOT CREDITED 
ARRAY OF CHECK NUMBERS OUTSTANDING 
ARRAY OF CHECK AMOUNTS OUTSTANDING 
DATE OF BANK STATEMENT 
BALANCE FROM BANK STATEMENT 
NUMBER OF DEPOSITS NOT CREDITED 
NUMBER OF CHECKS OUTSTANDING 
BALANCE IN CHECKBOOK- 
TOTAL DEPOSITS OUTSTANDING 
TOTAL OF CHECKS OUTSTANDING 
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FUNCTIONS USED 

I ! 

I NAME .. DESCRIPTION I 

x x 

I ARRAYS.. SINGLE DIMENSION I 

I ! 
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HOUSEHOLD BUDGET 

Description 

This program will help you prepare your monthly budget. Information 
is entered using data statements and is retained for later analysis or 
review. 

Functions of the Program 

The program reads the budget categories and expense items from data 
items, as well as the month name abbreviations. It stores these items in 
arrays, determines the first month/year to print based upon your input, 
and then finds the starting point in the data items supplied. During 
processing, the items are read, totaled, and then printed. Note that you 
must define your budget categories for the program as shown in lines 
1170-1220 of the program listing. 

Instructions for Use 

Before running the program, it is necessary to initialize the budget 
codes that you wish to use (or use the ones given here) and to provide 
the budget data items using DATA statements following the budget 
code "END" indicator. 

Data Entry 

All data is entered using DATA statements. 

Data Formats 

There are three types of data formats for this program: 

1. The budget category codes are entered in the form: 

Code, Category (Fixed, Variable, or Semivariable), Explanation 

2. The master month entry is given by: 

*, Month name abbreviation, Year 

3. Budget expense items for the month are entered using the form: 

Budget code, Amount, Explanatory comments 
Note the END card. 

Output Description 

See example provided. Outpui: will be printed for the number of months 
requested. A maximum of six months is possible, printed horizontally. 

Comments 

The number of budget expense codes in the program is currently lim- 
ited to 20. 
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20 REM HOUSEHOLD BUDGET PROGRAM 

30 REM ************** DATA INITIATION ********************** 

40 M=10000 

50 N=l 

60 DIM M*<12> 

70 Ml=20 

80 DIM C$<20> 

90 DIM T$<20> 

100 DIM D$<20) 

110 DIM P<6j20) 

120 REM ********** INITIALIZE MONTH ARRAY ************* 

130 FOR I = 1 TO 12 

140 READ M*(I) 

150 NEXT I 

160 REM ********** INITIALIZE BUDGET CATEGORIES ******** 

170 FOR I = 1 TO Ml 

180 READ C$<I> 

190 IF C$(I)="END" THEN 220 

200 READ T*<I>rD*(I> 

210 NEXT I 

220 M1=I-1 

230 REM ************ DETERMINE MONTHS TO PRINT ********* 

240 PRINT "ENTER THE STARTING MONTH>YEAR FOR THE PRINT" 

250 INPUT M0*fY0 

260 FOR 1=1 TO 12 

270 IF M0$=M$<I> THEN 300 

280 NEXT I 

290 GOTO 240 

300 PRINT "HOW MANY MONTHS SHALL I PRINT (MAXIMUM 6 MONTHS)" 

310 NO=I 

320 INPUT Nl 

330 REM ********* FIND STARTING RECORD *************** 

340 FOR I = 1 TO M 

350 READ CO* 

360 IF CO$=°END" THEN 1080 

370 IF C0$<>'*" THEN 420 

380 READ Ml$rY 

390 IF MO$OM1$ THEN 420 

400 IF YO <>Y THEN 420 

410 GOTO 450 

420 NEXT I 

430 REM ******************************************************** 

440 REM **************** PROCESSING AREA **************** 

450 1=1 

460 READ C0$ 

470 IF C0$ ="END" THEN 660 

480 IF C0$<>"*" THEN 560 

490 READ MO$>Y 

500 N=N+1 

510 PRINT 

520 IF M0$=M$<N+N0-1> THEN 460 

530 PRINT "MONTH IS MISSING FOLLOWING ° ?M$ < N0+N-2) 

540 N1=N-1 

550 GOTO 460 

560 REM ******* DETERMINE ARRAY POSITION OF ITEM ******** 

570 READ A* DOS 

580 FOR J= 1 TO Ml 

590 IF CO*=C$(J> THEN 630 

600 NEXT J 

610 PRINT CO$?"r"?Ai°IN MONTH " ?M0$?Y5 "CANNOT BE RECOGNIZED" 

620 GOTO 460 

630 P<NpJ)=P(NrJ)+A 

640 1=1+1 

650 IF K=M THEN 460 
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660 REM ********* PRINTING ROUTINE **************************** 

670 N1=N 

680 PRINT 

690 PRINT 

700 PRINT " ITEM"? 

710 FOR J=l TO Nl 

720 J1=J+N0-1 

730 IF Jl<=12 THEN 750 

740 J1=J1-12 

750 PRINT TAB<J*10+11> fh*<Jl>F 

760 NEXT J 

770 PRINT 

780 PRINT 

790 FOR J=l TO Ml 

800 IF J=l THEN 830 

810 IF T$(J)=T$< J-l) THEN 830 

820 PRINT 

830 PRINT D*(J)J" <"»T*(J)f ")■» 

840 FOR K=l TO N.t 

850 PRINT TAB<K*10+10>?P<K>J>? 

860 IF J=l THEN 880 

870 T<K)=T<K>+P<KrJ> 

880 NEXT K 

890 PRINT 

900 NEXT J 

910 REM ************ PRINT TOTAL LINES ********************* 

920 FOR K=l TO Nl 

930 PRINT TAB<K*10+10>5 " 'i 

940 NEXT K 

950 PRINT 

960 PRINT ■ TOTAL EXPENSES'; 

970 FOR K=l TO Nl 

980 PRINT TAB(K*10+10) 5T<K) ? 

990 NEXT K 

1000 PRINT 

1010 PRINT 

1020 PRINT " NET INCOME"? 

1030 FOR K=l TO Nl 

1040 PRINT TAB(K*10+10>5P<K ? 1)-T(K>5 

1050 NEXT K 

1060 PRINT 

1070 PRINT 

1080 REM ************************************************************ 

1090 REM ************* PROGRAM TERMINATION POINT ************ 

1100 PRINT 

1110 PRINT 

1120 STOP 

1130 REM *************************************************** 

1140 REM ******** DATA FOR INITIALIZATION FOLLOWS ********* 

1150 DATA JAN > FEB , MAR , APR t MAY > JUN , JUL? AUG , SEP , OCT, NOV , DEC 

1160 DATA IN7IN7 TOTAL INCOME 

1170 DATA H»Fi>RENT/MORTGAGE>UrFyUTILITIES 

1180 DATA I ?Fs. INSURANCE ?PpFjPAYMENTS 

1190 DATA F, SS.FOOD? A? S» AUTO/TRANS 

1200 DATA MrSfMAINT/REPAIRS?MDfSi.MED/DENTAL 

1210 DATA C»VfCLOTHING 

1220 DATA E!.V?EDlJCATION 7 R 7 V 7 RECREATI0N y S7V7SAVINGS!.O?VyOTHER 
1230 DATA END 
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1240 


REM : 


1250 


DATA 


1260 


DATA 


1270 


DATA 


1280 


DATA 


1290 


DATA 


1300 


DATA 


1310 


DATA 


1320 


DATA 


1330 


DATA 


1340 


DATA 


1350 


DATA 


1360 


DATA 


1370 


DATA 


1380 


DATA 


1390 


DATA 


1400 


DATA 


1410 


DATA 


1420 


DATA 



********** BUDGET DATA FOLLOWS ********** 
*jJUN» 1979 
INrB50.2»WAGES 
IN f 100.50,C0MM. 
Hr350* 

U»195y*F*234.45» 
I > 45. 55 r LIFE INSURANCE 
Pyl0.15>CHARGE CARD Y 
p f 23.45 ? FURNITURE 
P» 12. 15 ? CHARGE CARD X 
M?50>NEW WATER HEATER 
MDy20fDENTAL VISIT-JIM 
*»JUL>1979 
IN>800. 50, WAGES 

Hf350»>Ur200»»I,45.55 ? >P»23,45> f S f 100 t »R r 20 » MOVIES 
*fAUG»1979 
IN>467. 55, WAGES 
H,375,»U?205, 
END 



RUN 

ENTER THE STARTING MONTHfYEAR FOR THE PRINT 

? JUL* 1979 

HOW MANY MONTHS SHALL I PRINT (MAXIMUM 6 MONTHS) 

? 2 



ITEM 



JUL 



AUG 



TOTAL INCOME <IN) 



800.5 



467.55 



RENT/MORTGAGE (F) 
UTILITIES (F) 
INSURANCE (F) 
PAYMENTS <F> 

FOOD (S) 
AUTO/TRANS <S> 
MAINT/REPAIRS (S) 
MED/DENTAL <S> 

CLOTHING <V> 
EDUCATION <V> 
RECREATION <V> 
SAVINGS (V) 
OTHER <V> 

TOTAL EXPENSES 

NET INCOME 



350 


375 


200 


205 


45.55 





23.45 









































20 





100 











739 


580 


61.5 


-112.45 



BREAK IN 1120 
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MAJOR 

I 

I NAME 

I 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I- 



SYMBOL TABLE - HOUSEHOLD BUDGET 
,. DESCRIPTION 



M*( 

C*< 

T$< 

D*< 

P< 

Ml 

MO* 

YO 

Nl 

NO 

CO$ 

A 

DO* 

N 

T< 

M 



ARRAY OF MONTH NAMES 

MASTER BUDGET CODES 

MASTER EXPENSE TYPE CODES 

MASTER BUDGET ITEM DESCRIPTIONS 

BUDGET AMOUNTS (2 DIM ARRAY FOR PRINTS) 

MAXIMUM NUMBER OF BUDGET CATEGORIES 

START MONTH FOR PRINTING 

START YEAR FOR PRINTING 

NUMBER OF MONTHS TO PRINT 

POINTER TO STARTING MONTH NAME 

TRANSACTION BUD3ET CODE 

TRANSACTION AMOUNT 

TRANSACTION EXPLANATION 

MONTH COUNT 

MONTHLY TOTALS 

MAXIMUM NUMBER 3F DATA READS 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



I TAB . . FORMATS PRINT LINES 
I ARRAYS.. 2 DIMENSIONS 

I 
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HOUSEHOLD EXPENSES 

Description 

This program will assist in the preparation of household expense re- 
views and analyses based upon actual-versus-budgeted expenses. In 
conjunction with the household budget program given previously, this 
program will be useful in getting the most for your dollar. 

Functions of the Program 

The program functions in the same way as the household budget pro- 
gram except that only one month is printed during each run of the 
program. In addition, you will be asked to enter the budget amount 
through the keyboard for each of the prompted expense categories. 
Note that the expense categories are defined by you as shown in lines 
1140-1210 of the program listing. 

Instructions for Use 

To run this program, it is necessary to initialize the expense categories 
that you wish to use and to provide the data entries for the expenses 
incurred during the month. Note the sample data provided. 

Data Entry 

Expense data is entered using DATA statements, and budget informa- 
tion is entered through the keyboard. 

Data Formats 

There are three types of data formats available: 

1. Expense category codes and their explanations are entered in the 
form: 

Expense code, Category (Fixed, Variable, or Semivariable), 

Explanation 

2. Monthly entries require a heading record of the form: 

*, Month name abbreviation, Year 

3. Expense item entries are provided in the form: 

Expense code, Amount, Explanatory comments 
Note the END card. 

Output Description 

Two forms of output are available: 

1. A detailed list of the month's expenses (complete with explana- 
tory comments). 

2. An analysis of the month's actual-versus-budgeted figures. 

Comments 

The number of expense category codes is currently limited to 20. 

Home Financial Programs 13 



20 REM HOUSEHOLD EXPENSE ANALYSIS 

30 REM ************** DATA INITIATION ********************** 

40 M=10000 

50 DIM M$<12> 

60 Ml=20 

70 DIM C$<20) 

80 DIM T$<20) 

90 DIM D$<20) 

100 DIM P<20) 

110 DIM B<20) 

120 DIM D(20) 

130 REM ********** INITIALIZE MONTH ARRAY ************* 

140 FOR I = 1 TO 12 

150 READ M$(I) 

160 NEXT I 

170 REM *»****:[(** INITIALIZE BUDGET/EXPENSE CATEGORIES ******** 

180 FOR 1= 1 TO Ml 

190 READ C$<I) 

200 IF C$<I) = , END'' THEN 230 

210 READ T*<I) rD*(I) 

220 NEXT I 

230 M1=I-1 

240 REM ************ DETERMINE MONTH TO PRINT ********* 

250 PRINT "ENTER THE MONTH^YEAR FOR THE PRINT" 

260 INPUT M0$?Y0 

270 FOR 1=1 TO 12 

280 IF MO$=M*<I> THEN 320 

290 NEXT I 

300 GOTO 250 

310 NO=I 

320 REM ************** ENTER BUDGET FIGURES ********** 

330 PRINT "FOR EACH CATEGORY PRINTED ENTER THE BUDGETED AMOUNT " 

340 PRINT 

350 FOR I = 1 TO Ml 

360 PRINT D$<I> 

370 INPUT B(I) 

380 NEXT I 

390 PRINT "SHALL I PROVIDE A DETAILED PRINT OF EXPENSES (Y OR N>?" 

400 INPUT A$ 

410 IF A$<>"Y" THEN 480 

420 PRINT 

430 PRINT 

440 PRINTTAB< 15) i "EXPENSE DETAIL* 

450 PRINT "ITEM" i TAB < 20) r "AMOUNT" ? TAB (30) } "EXPLANATION" 

460 PRINT " " ?TAB<20)>" '? TAB (30)5 

470 PRINT ' • 

480 REM ********* FIND STARTING RECORD *************** 

490 FOR I = 1 TO M 

500 READ C0$ 

510 IF CO$="END" THEN 1060 

520 IF C0$<>'*" THEN 570 

530 READ M1$>Y 

540 IF MO$OM1$ THEN 570 

550 IF YO <>Y THEN 570 

560 GOTO 600 

570 NEXT I 

580 REM W****************************************************** 

590 REM ********X<******* PROCESSING AREA **************** 

600 1=1 

610 READ C0$ 

620 IF C0$ ="EMD" THEN 760 

630 IF C0$="*° THEN 760 

640 REM ******* DETERMINE ARRAY POSITION OF ITEM ******** 

650 READ A»DO$ 
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660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

800 

810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 






TAB(25) i "****************************■ 
TAB(36)?M0$JY0 

• ITEM" JTAB<25> i "BUDGET" ?TAB<35> i "ACTUAL" 



JTAB(45)f" DIFF" 



FOR J= 1 TO Ml 

IF CO$=C$(J> THEN 710 
NEXT J 

PRINT CO$r"»°?AJ"IN MONTH " rMO$?Y? "CANNOT BE RECOGNIZED" 
GOTO 610 
P<J)=P(J)+A 
1 = 1 + 1 

IF A$<>"Y" THEN 750 
PRINT D$ ( J ) i T AB < 20 ) % A i TAB ( 30 ) i D0$ 
IF K=M THEN 610 

REM ********* ANALYSIS PRINT ROUTINE 
N1=N 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

PRINT " °i 

PRINT TAB(25)J" " 

FOR J=l TO Ml 

IF J=l THEN 900 
IF T*(J>=T*(J-1) THEN 900 
PRINT 

PRINT D*(J)5" <"?TS<J>?">" i 
D<J)=P<J)-B(J> 

PRINT TAB<25)?B(J>;TAB(35) JP( J) ?TAB<45) JD(J> 
IF J=l THEN 970 
PO=PO+P<J) 
BO=BO+B<J> 
DO=DO+D< J) 
NEXT J 
REM ************ 

PRINT TAB<25)J" 

PRINT " TOTAL EXPENSES"? 

PRINT TAB(25)fB0»TAB(35)?P0?TAB(45)?D0 

PRINT 

PRINT 

PRINT 

PRINT 

REM &)(()&&&)&)K)i()K)k)K&&)K'ti){(&&$)(()K$&$&^ 

REM ************* PROGRAM TERMINATION POINT ************ 

PRINT 

PRINT 

STOP 

REM *************************************************** 

REM ******** DATA FOR INITIALIZATION FOLLOWS ********* 

DATA JAN r FEB r MAR , APR t MAY t JUN t JUL r AUG , SEP t OCT t NOV > DEC 

DATA INflNr TOTAL INCOME 

DATA H*FrRENT/MORTGAGE»UfF* UTILITIES 

DATA I>F>INSURANCEfP>F»PAYMENTS 

DATA F>S»FOODrA»S, AUTO/TRANS 

DATA M f S , MAI NT/REPAIRS -MDfS- MED/DENTAL 

DATA C,V»CLQTHING 

DATA E>V>EDUCATIONfR»V» RECREATION ,S>V> SAVINGS* Q, V, OTHER 

DATA END 

REM ********** BUDGET DATA FOLLOWS ********** 

DATA *»JUN>1979 

DATA IN , 850. 2 t WAGES 

DATA IN»100.50rC0MM. 

DATA Hf350» 

DATA Url95»>F>234.45> 

DATA I,45,55jLIFE INSURANCE 

DATA P»10.15 ? CHARGE CARD Y 



PRINT TOTAL LINES ********************* 



NET INCOME"? 
TAB(25)?B<1)-B0?TAB<35)fP<1)-P0?TAB<45)?D(1)-D0 
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1300 


DATA 


1310 


DATA 


1320 


DATA 


1330 


DATA 


1340 


DATA 


1350 


DATA 


1360 


DATA 


1370 


DATA 


1380 


DATA 


1390 


DATA 


1400 


DATA 



P,23.45fFURNITURE 

P» 12, 15 r CHARGE CARD X 

Ms.50i.NEW WATER HEATER 

MD»20»DENTAL VISIT-JIM 

*i.JUL ? 1979 

IN? 800. 50 7 WAGES 

H?350>> , U s.200? ? I ? 45. 55. »P»23.45» iSflQQt t Rt 20 > MOVIES 

*?AUG?1979 

IN* 467. 55? WAGES 

H ? 375 9 rlit 205 9 

END 



RUN 

ENTER THE MONTH? YEAR FOR THE PRINT 

? JULs.1979 

FOR EACH CATEGORY PRINTED ENTER THE BUDGETED AMOUNT 



TOTAL INCOME 

? 900 

RENT/MORTGAGE 

? 350 

UTILITIES 

? 210 

INSURANCE 

? 45.55 

PAYMENTS 

? 23.45 

FOOD 

? 100 

AUTO/TRANS 

? 20 

MAINT/REPAIRS 

? 10 

MED/DENTAL 

? 10 

CLOTHING 

? 10 

EDUCATION 

? 10 

RECREATION 

? 15 

SAVINGS 

? 10 

OTHER 

? 10 

SHALL 

f « 



I PROVIDE A DETAILED PRINT OF EXPENSES (Y OR N>? 



ITEM 



EXPENSE DETAIL 

AMOUNT EXPLANATION 



TOTAL INCOME 


800.5 


WAGES 


RENT/MORTGAGE 


350 




UTILITIES 


200 




INSURANCE 


45.55 




PAYMENTS 


23,45 




SAVINGS 


100 




RECREATION 


20 


MOVIES 
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ITEM 

TOTAL INCOME <IN> 

RENT/MORTGAGE <F> 
UTILITIES (F) 
INSURANCE <F> 
PAYMENTS <F> 

FOOD <S) 
AUTO/TRANS <S> 
MAINT/REPAIRS (S) 
MED/DENTAL (S> 

CLOTHING <V) 
EDUCATION (V) 
RECREATION (V) 
SAVINGS (V) 
OTHER <V> 

TOTAL EXPENSES 

NET INCOME 



JUL 1979 
BUDGET ACTUAL DIFF 



900 


800.5 


-99.5 


350 


350 





210 


200 


-10 


45.55 


45.55 





23.45 


23.45 





100 





-100 


20 





-20 


10 





-10 


10 





-10 


10 





-10 


10 





-10 


15 


20 


5 


10 


100 


90 


10 





-10 


824 


739 


-85 


76 


61.5 


-14.5 



BREAK' IN 1100 



MAJOR SYMBOL TABLE - HOUSEHOLD EXPENSES 
.. DESCRIPTION 



I NAME 

I 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I- 



M* 

C*< ) 
T*< > 
D*< ) 
P( ) 
B( ) 

n< ) 

MO* 

YO 

CO* 

A 

DO* 

Ml 

M 

PO 

BO 

DO 



MONTH NAME ARRAY 

MASTER EXPENSE CATEGORY CODES 

MASTER EXPENSE TYPE CODES 

MASTER EXPENSE CATEGORY DESCRIPTIONS 

EXPENSE PRINT ARRAY 

BUDGET PRINT ARRAY 

DIFFERENCE PRINT ARRAY 

MONTH TO PRINT 

YEAR OF MONTH TO PRINT 

TRANSACTION CATEGORY CODE 

TRANSACTION AMOUNT 

TRANSACTION EXPLANATION 

MAXIMUM NUMBER OF EXPENSE CATEGORIES 

MAXIMUM NUMBER OF DATA READS 

EXPENSE TOTAL 

BUDGET TOTAL 

DIFFERENCE TOTAL 



FUNCTIONS USED 



I NAME 



, DESCRIPTION 



I TAB 
I ARRAY 

I 



FORMAT PRINT LINES 
SINGLE DIMENSION 
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INSTALLMENT PAYMENT PROJECTION 

Description 

This program produces projected monthly payment amounts for loans 
that are based upon monthly compounding of interest. 

Functions of the Program 

The program accepts inputs of amount to be borrowed, the number of 
payments desired, and interest rate information. It then calculates and 
prints the projected monthly payment. 

Instructions for Use 

Run the program and answer the questions asked by the program. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See example provided. A projected monthly payment figure is printed. 



20 REM INSTALLMENT PAYMENT PROJECTION 

30 REM 5K»oi:*K30K!K*)K COMPOUNDS MONTHLY a^xoKXOKJfottxoK^JKiiOKjioKaoKXOK*:*;* 

40 REM JKJfOKJtOKXOKifaiHOJXOKJK DATA INITIALIZATION XiJOOOCXOKHOKXOKSOXifOKXOKSIOiCK 

50 PRINT "ENTER THE AMOUNT TO BE BORROWED" 

60 INPUT A 

70 PRINT "ENTER THE NUMBER OF MONTHLY PAYMENTS" 

80 INPUT N 

90 PRINT "IS THE INTEREST RATE PER MONTH <M) OR YEAR <Y> 

100 INPUT T* 

.1.10 PRINT "ENTER THE INTEREST RATE (PERCENT)" 

.1.20 INPUT' I 

.1.30 1=1/100 

.1/40 IF T*~"M" THEN 170 

150 1=1/12 

160 REM xxxxxxxokx CALCULATION sofosaKJKXcaoKSOKKOKHOKaoi; 

1/0 P=fix(I/(!-(l+IW-N) ) 

ISO PRINT 

190 PRINT "PROJECTED MONTHLY PAYMENT? "}P 

200 REM xoKXOKitaioioKsioK PROGRAM TERMINATION POINT hxokjkjioiokhokxokjiokxokx 

210 PRINT 

220 PRINT 

230 STOP 

RUN 

ENTER THE AMOUNT TO BE BORROWED 

? 1000 

ENTER THE NUMBER OF MONTHLY PAYMENTS 

? 12 

IS THE INTEREST RATE PER MONTH (M) OR YEAR (Y) 

? Y 
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ENTER THE INTEREST RATE (PERCENT) 
? 9 

PROJECTED MONTHLY PAYMENT? 87.4532 
BREAK IN 230 



MAJOR SYMBOL TABLE - INSTALLMENT PAYMENT PROJECTION 

j 1 

I NAME .. DESCRIPTION I 

I 1 

I A .. AMOUNT Or PRINCIPAL (BORROWED) I 
IN . . NUMBER OF MONTHLY PAYMENTS I 

II .. INTEREST RATE I 
IP ♦♦ RESULTING PROJECTED PAYMENT I 
X x 
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INTEREST RECEIVED PROJECTIONS 

Description 

This program will assist you in analyzing potential investments. It esti- 
mates the future returns on an initial investment at a given interest rate. 

Functions of the Program 

The program initializes variables by requesting inputs through the key- 
board. It allows various compounding strategies and will print the results 
after each compounding period, or at the end of each year. Following 
the input of all items requested, the program prints the initial informa- 
tion and then proceeds to calculate and print the results. 

Instructions for Use 

Run the program and answer the questions asked by the program. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See examples provided. A table of amounts and interest received, by 
period, is produced. 



20 REM INTEREST RECEIVED PROJECTIONS 

30 REM********#******##* DATA INITIALIZATION" 

40 PRINT "ENTER THE AMOUNT TO BE INVESTED" 

50 INPUT I 

60 PRINT "ENTER THE INTEREST RATE" 

70 INPUT R 

80 PRINT "ENTER THE NUMBER OF YEARS TO PROJECT" 

90 INPUT N 

100 PRINT "ENTER THE NBR OF TIMES PER YEAR THAT IT WILL BE COMPOUNDED" 

110 INPUT C 

120 IF CO THEN 150 

130 PRINT "COMPOUNDING MUST BE AT LEAST ONCE EACH YEAR" 

140 GOTO 100 

150 PRINT 

160 A*="Y» 

170 IF C=l THEN 200 

180 PRINT "SHALL I PRINT AFTER EACH COMPOUNDING PERIOD < Y OR N)?» 

190 INPUT A* 

200 PRINT 

210 PRINT 

220 PRINT "*«*»#*#>}:#***s:<**##*#:i<*#*>i<*####>l<**#" 

230 PRINT » INITIAL INVESTMENT t'il 

240 PRINT " ANNUAL INTEREST RATE'JRJ'X" 

250 PRINT " COMPOUNDED" »CJ "X PER YEAR" 

260 PRINT "*****#****;^#**«**>l<**#:{!##***>!c****##*" 

270 PRINT 
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280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 



PRINT TAB< 5) ?" BEGIN" 5TAB< 15) 5 "INTEREST" 

PRINT "YR" 5TAB<5> 5 "AMOUNT" >TAB< 16) ? "AMOUNT" STAB<26> 5 "TOTAL" 

PRINT " " ) T AB ( 15 ) i " " i TAB < 25 ) r " " 

R1=R*.01/C 
T=I 

FOR J = 1 TO N 
PRINT J? 
TO=T 
T4=0 

FOR K = 1 TO C 
T1=T*R1 

T2=INT<<T1+ .005 >*100) 
T1=T2/100 
T4=T4+T1 
T3=T 
T5=T1 

IF A$="Y" THEN 480 
IF K <C THEN 490 
T5=T4 
T3=T0 

PRINT TAB<5)»T3rTAB(15)fT5»TAB<25)fTl+T 
T=T+T1 
NEXT K 
PRINT 
NEXT J 

REM «*####*#* TERMINATION POINT #*###***#***##*******###* 
PRINT 
PRINT 
STOP 



RUN 
ENTER THE AMOUNT TO BE INVESTED 
? 1000 

ENTER THE INTEREST RATE 
? 9 

ENTER THE NUMBER OF YEARS TO PROJECT 
? 3 

ENTER THE NBR OF TIMES PER YEAR THAT IT WILL BE COMPOUNDED 
? 12 

SHALL I PRINT AFTER EACH COMPOUNDING PERIOD ( Y OR N>? 
? N 



INITIAL INVESTMENT $ 1000 
ANNUAL INTEREST RATE 9 X 
COMPOUNDED 12 X PER YEAR 



YR 


BEGIN 
AMOUNT 


INTEREST 
AMOUNT 


TOTAL 


1 


1000 


93.8 


1093.8 


1 


1093.8 


102.6 


1196.4 


3 


1196,4 


112.23 


1308.63 



BREAK IN 560 
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MAJOR SYMBOL TABLE 

j 

I NAME 



INTEREST RECEIVED PROJECTIONS 



DESCRIPTION 



I 

R 

N 

C 

J 

T3 

T5 

T 



AMOUNT INVESTED 

RATE OF INTEREST 

NUMBER OF YEARS 

NUMBER OF TIMES PER YEAR ITS COMPOUNDED 

YEAR BEING COMPUTED 

BEGINNING AMOUNT FOR THE PERIOD 

INTEREST AMOUNT FOR THE PERIOD 

BEGINNING AMOUNT FOR THE YEAR 



FUNCTIONS USED 



I 

I NAME 



DESCRIPTION 



I TAB 
I INT 

I 



.. FORMATS PRINT LINES 

. . CONVERTS NUMBER TO INTEGER 



22 BASIC Computer Programs for the Home 



MORTGAGE AMOUNT PROJECTIONS 

Description 

This program will project monthly mortgage payments for any amount, 
interest rate, or mortgage term. 

Functions of the Program 

This program accepts keyboard input for the projected mortgage 
amount, interest rate, and number of years for the mortgage. It then 
produces a projected monthly payment that includes both principal 
and interest. After data is entered, the interest rate is converted for 
compounding purposes. Following the computations, the initial entries, 
as well as the projected monthly payment amount, are printed. 

Instructions for Use 

Run the program and answer the questions asked by the program. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See example output provided. 



20 REM MORTGAGE COMPUTATION PROGRAM -BASIC 

30 REM xxxxxxxxxxm DATA INITIALIZATION xuKwiKXKXKxxxMxxxxyinK 

40 PRINT "ENTER THE MORTGAGE AMOUNT'" 

50 INPUT P 

60 PRINT "ENTER THE INTEREST RATE" 

70 INPUT II 

80 IF II >1 THEN 10 

90 1:1.-11*10 

100 I'--(Il/10(i)/12 

110 PRINT "ENTER THE YEARS OF THE MORTGAGE" 

120 INPUT' V 

130 PRINT' 

:H0 PRINT 

150 PRINT 

160 REM xoookxokxokxokjiokjk:* COMPUTATION soKJKJKSOKitoKXOioioKiioioioKXOK 

170 CKI/C <l-M)t<Y>K12)-l)M 

180 M1=--M*P 

1 90 PRINT " ykiKxxxrxxiKXxxiKxxxitaKxxxxxxiiixuioK " 

200 PRINT "MORTGAGE AMOUNT *"?P 

210 PRINT "INTEREST RATE "tXlt'%" 

220 PRINT "MONTHLY PAYMENT *"?M1 

230 PRINT " x:»«;o;*>k*:o<»;k*'x<:>xxx;,*»;k>o<>k;o(;kx< " 

240 REM ;kx;k>k;io!<>iok;k:*;k>k>k:>kx< PROGRAM TERMINATION )kxok;{<>k:k>x;k:k>iok;ioook;k 

250 PRINT 

260 PRINT 

270 STOP 
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RUN 

ENTER THE MORTGAGE AMOUNT 

? 75000 

ENTER THE INTEREST RATE 

? 9 

ENTER THE YEAR'S OF THE MORTGAGE 

? 30 



MORTGAGE AMOUNT $ 75000 
INTEREST RATE 9 7. 
MONTHLY PAYMENT t 603.469 



BREAK IN 270 



MAJOR SYMBOL TABLE - MORTGAGE AMOUNT PROJECTIONS 

! 1 

I NAME .. DESCRIPTION I 



P 

II 

I 

Y 

Ml 



PROJECTED MORTGAGE AMOUNT 

INTEREST RATE 

MODIFIED INTEREST RATE 

NUMBER OF YEARS FOR THE MORTGAGE 

MONTHLY PAYMENT 
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MORTGAGE COMPARISONS 

Description 

This program produces a table that compares various mortgage amounts, 
terms, and interest rates. The information is ideal for the prospective 
buyer or seller and allows him to compare various alternatives that may 
be available. 

Functions of the Program 

You are asked to indicate which of the items to vary first. Based upon 
your response to this question, the amounts, terms, and interest rates 
are entered. The example output shows the results of a run where the 
mortgage amount was varied. 

Instructions for Use 

Run the program and respond to the questions asked, through the 
keyboard. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See examples provided. The program produces a table of comparisons. 
They differ slightly in appearance depending upon the item being varied 
but all tables include the mortgage term, interest rate, mortgage amount, 
projected monthly payment, and total interest to be paid. 



20 REM MORTGAGE COMPARISON PROGRAM 

30 REM NOTE ROUNDING ERRORS MAY OCCUR IN COMPUTED NUMBERS 

50 REM >K!(os;fOK)fOK;(OKX< DATA INITIALIZATION xxxxxxxxxxxxxokxokxxx 

60 PRINT "ENTER THE ITEM TO VARY-AMOUNT (A) r INI' RATECDy OR YEARSCY)" 

70 Sl-1 

80 S2-1 

90 S3=l 

100 INPUT A* 

HO REM xoksoksokxokxoksok ENTRY OF VARIABLE ITEMS jkxokhoookhox* 

120 IF A$<>"A" THEN 180 

130 PRINT "ENTER THE BEGINNING AMOUNT f ENDING AMOUNT TO CONSIDER" 

140 INPUT AOrAl 

150 PRINT "ENTER THE INTERVAL BETWEEN PRINTS I.E. 1000" 

160 INPUT' SI 

170 GOTO 340 

180 IF AilK>"I" THEN 2-10 

190 PRINT "ENTER THE LOWEST* HIGHEST INTEREST RATE TO CONSIDER" 

200 INPUT ROhRI 

210 PRINT "ENTER THE INTERVAL BETWEEN PRINTS T.E.» .25 FOR 1/4" 



?? 



INPUT 
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230 GOTO 30 

240 IF A*<>"Y" THEN 290 

250 PRINT "ENTER THE LOWEST* HIGHEST NUMBER OF YEARS TO CONSIDER" 

260 INPUT Y0»Y1 

270 PRINT "ENTER THE INTERVAL BETWEEN PRINTS I.E.? 5" 

280 INPUT S3 

290 REM xokhokjiokhokjk ENTRY OF CONSTANT ITEMS xiKXzoKXOKaoitxoKXXixoKXOn 

300 PRINT "ENTER THE MORTGAGE AMOUNT" 

310 INPUT P 

320 A0-P 

330 IF A*-" I" THEN 40 

340 PRINT' "ENTER THE INTEREST RATE" 

350 INPUT II 

360 IF I1>==1 THEN 380 

370 II -.11*100 

380 R0=I1 

390 IF A$-"Y" THEN 430 

400 PRINT "ENTER THE YEARS OF THE MORTGAGE" 

410 INPUT Y 

420 Y0~Y 

430 PRINT 

440 PRINT 

450 PRINT 

46 REM x*x***x*x<>k**kx«*>k>k>,okx<*k>k;k>k;k»:o:»'*kx*^ 

470 REM ^sxoiOioioiOKSOXiiOKHOKK PROCESSING LOOP ;K>K>x>K>o;w:>K)iOK:K>K>iOK>fOK 

480 FOR Y=Y0 TO VI STEP S3 

490 PRINT "FOR A MORTGAGE OF" $ Yf "YEARS" 

50 PRINT 

510 FOR I1==R0 TO Rl STEP S2 

520 PRINT "USING THE INTEREST RATE" ? II % "X" 

530 PRINT 

540 PRINT "MORTGAGE" ?TfiB< IS) ? "MONTHLY PI" 5 TABOO ) 5 " TOTAL" 

550 PRINT " AMOUNT" TTAB< 15) J " PAYMENT" f TABOO )? "INTEREST" 

560 PRINT " - " f TABC15) i " — " J TABOO) > " - 

570 FOR P--A0 TO Al STEP SI 

580 REM moksoksok COMPUTATION AND PRINT axoicaoKxoKaoKxoKaoK 

590 I==(l:l./.100)/.l.2 

600 M=I/ ( ( 1 +1 ) * < Y*'l 2 ; 1 ) ■>•! 

610 Ml-MKP 

620 I3=M1*Y*12-P- 

630 PRINT P?TAB<15) JMIM'ABOO) ?I3 

640 NEXT P 

650 PRINT ° *)ii;**:»»oic»;»>i«K»c)S!iOKH<*»oi;»:»!>ioK)K>KX>K»:)KS<>K>KX»;>KJiOKS«KX " 

660 PRINT' 

670 NEXT II 

680 NEXT Y 

690 REM xokjioookjiouoksokhok PROGRAM TERMINATION JfOKXOKJiOKXOKifOK*: 

700 PRINT 

710 PRINT 

720 STOP 



RUN 

ENTER THE ITEM TO VARY-AMOUNK A> , INT RATE<I)s. OR YEARS<Y> 

? A 

ENTER THE BEGINNING AMOUNT? ENDING AMOUNT TO CONSIDER 

? 50000*75000 

ENTER THE INTERVAL BETWEEN PRINTS I.E. 1000 

? 5000 

ENTER THE INTEREST RATE 

? 10 

ENTER THE YEARS OF THE MORTGAGE 

? 30 
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FOR A MORTGAGE OF 30 YEARS 
USING THE INTEREST RATE 10 % 



MORTGAGE 


MONTHLY PI 


TOTAL 


AMOUNT 


PAYMENT 


INTEREST 


50000 


438.788 


107964 


55000 


482.667 


118760 


60000 


526.545 


129556 


65000 


570.424 


140353 


70000 


614.303 


151149 


75000 


658.182 


161945 



**************************************** 



BREAK IN 720 



RUN 

ENTER THE ITEM TO VARY-AMOUNT < A) , INT RATE<I>* OR YEARS(Y) 

? I 

ENTER THE LOWEST* HIGHEST INTEREST RATE TO CONSIDER 

? 9.5*10 

ENTER THE INTERVAL BETWEEN PRINTS I.E.* .25 FOR 1/4 

? .25 

ENTER THE MORTGAGE AMOUNT 

? 50000 

ENTER THE YEARS OF THE MORTGAGE 

? 35 



FOR A MORTGAGE OF 35 YEARS 

USING THE INTEREST RATE 9.5 % 

MORTGAGE MONTHLY PI TOTAL 
AMOUNT PAYMENT INTEREST 



50000 410.806 122539 

**************************************** 

USING THE INTEREST RATE 9.75 % 

MORTGAGE MONTHLY PI TOTAL 
AMOUNT PAYMENT INTEREST 



50000 420.296 126524 

**************************************** 

USING THE INTEREST RATE 10 % 

MORTGAGE MONTHLY PI TOTAL 
AMOUNT PAYMENT INTEREST 



50000 429.838 130532 

**************************************** 



BREAK IN 720 
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MAJOR SYMBOL TABLE - MORTGAGE COMPARISONS 



I NAME 
I 



.. DESCRIPTION 



INTERVAL BETWEEN MORTGAGE AMOUNTS 

INTERVAL BETWEEN INTEREST RATES 

INTERVAL BETWEEN MORTGAGE YEARS 

FIRST AMOUNT CONSIDERED 

LAST AMOUNT CONSIDERED 

LOWEST RATE CONSIDERED 

HIGHEST RATE CONSIDERED 

LOWEST NUMBER OF YEARS CONSIDERED 

HIGHEST NUMBER OF YEARS CONSIDERED 

SINGLE MORTGAGE AMOUNT 

SINGLE INTEREST RATE 

SINGLE YEAR TO CONSIDER 

MONTHLY PAYMENT COMPUTED 

TOTAL INTEREST PAID 



I 


SI 


I 


S2 


I 


S3 


I 


AO 


I 


Al 


I 


RO 


I 


Rl 


I 


YO 


I 


Yl 


I 


P 


I 


11 


I 


Y 


I 


Ml 


I 


13 



FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



TAB 



. FORMATS PRINT LINES 
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PROPERTY COMPARISONS 

Description 

This program produces a table giving the monthly costs associated with 
a specific property. Included in the table is a computation of monthly 
principal-interest and monthly principal-interest-taxes-insurance. Also 
included is a projected total monthly cost of the property. 

Functions of the Program 

The program requests annual and monthly expense information con- 
cerning the property. Following this, the computation of monthly 
charges is accomplished, and a cost table is printed. At the end of each 
cost table, the program requests the name of the next property to con- 
sider. The program continues to request information on new properties 
until you provide a null response (press the return only) to the property 
name question. 

Instructions for Use 

Respond to the questions asked by the program. Be thorough in your 
entry of all relevant costs. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See example provided. 

Comments 

The program's results will be only as good as the data provided. 



20 REM HOUSE COMPARISON PROGRAM 

30 REM xxxxxxxxxx DATA INITIALIZATION J******************** 

40 PRINT "ENTER PROPERTY NAME ( JUST PRESS RETURN WHEN DONE > " 

50 R0== ,005 

60 N*=" " 

70 INPUT N$ 

80 IF' N$==" » THEN ?'•'■! 

90 PRINT "ENTER THE MORTGAGE AMOUNT" 

.1.00 P=0 

1.1.0 INPUT' P 

120 PRINT "ENTER THE INTEREST RATE" 

130 INPUT' II 

140 IF I1>~1 THEN 160 

150 n=:ri*:ioo 

160 !=•■• (II /i 00 )/12 

170 PRINT' "ENTER THE YEARS OF THE MORTGAGE" 

180 INPUT Y 
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.1.90 PRINT "ENTER THE ANNUAL. TAXES ON THE PROPERTY" 

200 T-Q 

210 INPUT T 

220 T=T/i2 

230 T=I'NT < C T+RO ) *.t ) 

240 T=T/100 

2S0 PRINT "ENTER THE ANNUAL INSURANCE COSTS FOR THE PROPER F Y ' 

260 F~0 

270 INPUT F 

230 F=F/3.2 

290 F'-INT ( ( F'+RO ) *.'l ) 

30 F=F/100 

310 PRINT "ENTER THE ANNEAL MAINTENANCE AND REPAIR COSTS 

320 R=0 

330 INPUT R 

340 R==R/12 

35 R-INT < < R+R ) * 1 ) 

360 R=R/:l.0tJ 

370 PRINT "ENTER ANY OTHER *** MONTHLY *** COSTS THAT APPLY 

330 S=0 

390 INPUT S 

■100 PRINT "ENTER AVERAGE *** MONTHLY ssot UTILITY COSTS" 

110 (J-' 

420 INPUT U 

430 PRINT 

440 F'RI'NT 

450 PRINT 

460 REM sokxxmxxxxxxxxcx COMPUTATION xxxxxxxxxxxxxxxxxx 

470 M-I/< <1+I)^<YW12) ••:l.)"I 

480 M1=M*P 

49 M 1 =1 NT < < M 1 +R ) * 1 ) 

500 Ml =M1 7100 

510 0NJ+3+R 

520 T1~M1+T+F 

530 PRINT »>ooo<>o<>kx>ook;k*;x>o«;x>kx*xok;k>k^^ 

540 PRINT 

550 PRINT N$?" INTERIMS! RATE" J II f "Z -- MORTGAGE YEARS "SY 

570 PRINT "MORTGAGE" JTABC10) i " P I" ?TAB(20 ) > "TAXES" n'AB( 30 ) ? "INS" J 

580 PRINT TAB (40) 5" PITT" 

590 PRINT' " - " ? TAB (10)?" — " * TAB < 20 ) t " " ? I AB (30 ) , 

60 PRINT' " - " i TAB (40)5" — " 

6 1 PRIN T P 5 TAB ( .1. ) } M :l. ? TAB ( 2 ) ? T ? T AB ( 30)? F i TAB (40)? T 1 

620 PRINT 

630 PRINT "UTILITIES" ?TAe(15) J " MAIN!" > TAB (25) > " OTHER" ? TAB (38) ? 

640 PRINT "OPERATING COSTS" 

650 PRINT " ~ - " ?TAB(15) ? "-■ •■» ?TAB(25) 5 "-- ~" ? 

660 PRINT TAB(40)? " -- " 

67 PRINT' U i TAB ( 1 5 ) i R J TA3 ( 25 ) i S i TAB (40)50 

630 PRINT 

690 PRINT " TOTAL MONTHLY COSTS J $"?Q+T1 

700 PRINT 

710 PRINT " ***K)K«>K»<>KKXKtf kk*****:******************^ 

720 PRINT 

730 GOTO 40 

740 REM a******************* PROGRAM TERMINATION xokxoksokxossok 

750 PRINT 
760 PRINT 
770 STOP 
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RUN 

ENTER PROPERTY NAME < JUST PRESS RETURN WHEN DONE ) 

? 9111 ANY ROAD STREET 

ENTER THE MORTGAGE AMOUNT 

? 35000 

ENTER THE INTEREST RATE 

? 10 

ENTER THE YEARS OF THE MORTGAGE 

? 30 

ENTER THE ANNUAL TAXES ON THE PROPERTY 

? 789.50 

ENTER THE ANNUAL INSURANCE COSTS FOR THE PROPERTY 

? 123.50 

ENTER THE ANNUAL MAINTENANCE AND REPAIR COSTS 

? 1000 

ENTER ANY OTHER *** MONTHLY *** COSTS THAT APPLY 

? 40 

ENTER AVERAGE *** MONTHLY *** UTILITY COSTS 

? 155.10 



9111 ANY ROAD STREET INTEREST RATE 10 % - MORTGAGE YEARS 30 



MORTGAGE P I TAXES INS PITI 

35000 307.15 65.79 10.29 383.23 

UTILITIES MAINT OTHER OPERATING COSTS 
155.1 83.33 40 278.43 



TOTAL MONTHLY COSTS! $ 661.66 



ENTER PROPERTY NAME ( JUST PRESS RETURN WHEN DONE > 

7 



BREAK IN 770 
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MAJOR SYMBOL TABLE - PROPERTY COMPARISONS 



I NAME 



DESCRIPTION 



-I 
I 

-I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

-I 



RO 
N$ 
P 

II 

Y 

T 

F 

R 

S 

u 

Ml 
Tl 




ROUNDING CONSTANT 

NAME OF PROPERTY 

MORTGAGE AMOUNT 

INTEREST RATE 

NUMBER OF YEARS FOR THE MORTGAGE 

ANNUAL TAXES 

ANNUAL INSURANCE COSTS 

ANNUAL MAINT/REPAIR COSTS 

OTHER MONTHLY CHARGES 

UTILITY COSTS 

PRINCIPAL AND INTEREST 

PRINCIPAL/INTEREST/TAXES/INSURANCE 

TOTAL UTILITIES/MAINT/OTHER 



FUNCTIONS USED 



I NAME 



., DESCRIPTION 



I TAB 
I INT 

I 



FORMATS PRINT LINES 
CONVERTS NUMBER TO INTEGER 



32 BASIC Computer Programs for the Home 



FINANCIAL RECORDS 

Description 

Items such as credit card numbers and the contents of financial papers 
can cause significant difficulties if not immediately available or lost. 
This program was designed to assist you in recording important 
financial information. It allows for recording information concerning 
credit cards, insurance, securities, and property (mortgage) information. 

Functions of the Program 

The program accepts all entries from DATA statements previously pro- 
vided and prints all entries, or selected categories of entries. A separate 
processing area exists for the handling of each type of record. In each 
area headings are printed, formatting is accomplished, and the items 
are printed. 

Instructions for Use 

Provide data entries for all items prior to running the program. The 
DATA formats differ slightly for each type of record. 

Data Entry 

All data is entered using DATA statements. 

Data Formats 

There are four data formats; each is described below. 

1. Credit card entries: 

C, Card name, Name issued to, Card number, Expiration date, 
Credit limit, Address to notify in case of loss 

2. Insurance entries: 

I, Type insurance, Name issued to, Policy number, Date issued, 
Amount, Company name and address 

3. Securities: 

S, Security type, Company, Quantity, Date purchased, 
Purchase price, File location of security 

4. Property (Mortgages): 

M, Property location, Registered to, Mortgage years, 
Purchase date, Amount, Mortgage holder 

Output Description 

See examples provided. The output can include all records or those of a 
specified type only. 
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20 REM FINANCIAL RECORD PROGRAM 

30 REM MeaoKXOKaoKXOfOioiOiOKXOK DATA XNXTXAI_.IZAT.XON jkxoksokhoksokxxxokxok* 

40 M=10 00 

50 PRINT "DO YOU WISH TO PRINT ALL. ENTRIES (Y OR N>?" 

60 .INPUT AC)* 

70 IF A0*=°Y" THEN 170 

80 PRINT "SHALL. I PRINT CREDIT CARDS (Of INSURANCE (I) , " 

90 PRINT " SECURITIES (S) ? OR MORTGAGES (M)?" 

.1.00 INPUT AHIi 

110 IF A1*^"C" THEN 180 

120 IF A1*="I" THEN 360 

130 IF A1*=="S" THEN 530 

140 IF A1*="M" THEN 70 

150 PRINT' "INPUT NOT RECOGNIZED" 

160 GOTO 50 

170 REM xxxxxxxxxoxxxxxxoxx CREDIT CARD PROCESSING xokjkjkxokxokwxjk 

ISO PRINT 
190 PRINT- 
ZOO PRINT 

210 PRINT' " CREDIT- CARD/LIMIT " i TAB< 19 ) i " NAME/NOTIFY " 1 TAB ( 37) ? " NUMBER" i 
220 PRINT TAB<52)?"EXP DATE" 

230 PRINT " - " t TABC19) t " " ? TAB (37) ? 

240 PRINT " - — " i TAB C 52 ) i " " 

250 FOR I - 1 TO M 

260 READ T* 

270 IF T*="END" THEN 340 

280 READ N*i.H*i'A*i>D*i-Ai.L* 

290 IF T*<>"C" THEN 330 

300 PRINT N*?TAB(19) * 1-1* » TAB (37) 5 A*fTAB(52) »D* 

31 PRINT' A J TAB (19)? L* 

320 PRINT 

330 NEXT I 

340 IF A0$O"Y" THEN 850 

350 RESTORE 

360 REM joHKxtaoKsoKifoiiJioioioKioc INSURANCE PROCESSING xxxxxxxxxxxxxx 

370 PRINT 

380 PRINT "INS TYPE/ AMI" J'l ABC 19) i "INSURED/COMPANY" > TAB (37) f "POLICY #" 

390 PRINT TAB(52)J"DATE" 

400 PRINT " ---" ?TAB(19) t " " i 

410 PRINT TAB < 37) « " - --- » ?TAB(S2) 5 " " 

420 FOR I ~i TO M 

430 READ T* 

440 IF T*="END" THEN 510 

450 READ Nir>»H*»A*»D*i'AFL* 

460 IF THi-O"!" THEN 500 

470 PRINT N*fTAB(.'l 9) t H*S TAB < 37) > A* f TAB ( 52 ) *D* 

480 PRINT A»TAB<19)3L* 

490 PRINT 

50 NEXT I 

510 IF A0*O"Y" THEN 850 

520 RESTORE 

530 REM xoc)K}K*)K)K)K)ioi!)ioKxot! SECURITIES PROCESSING kxc**********:*** 

540 PRINT 

55 PRINT " SECURITY/PRICE ' t TAB ( 1 9 ) i " COMPANY " i TAB ( 37 ) t " QT Y » J TAB ( 52 ) } 

560 PRINT "DATE" 

570 PRINT " ■ ■ - " ?TABC19> i "--- " ?TAB(37) ) 

58 PRINT " - " t TAB ( 52 ) i " — - •• " 

590 FOR I -■■■! TO M 

60 READ T* 

610 IF T<I>="END" THEN 680 

620 READ N$?H*pA$?D*>'A>.L* 

630 IF T!K> "S" THEN 670 

640 PRINT N*riAB(19) ? H* = TAB < 37 ) > A*»TAB(52) >D* 

65 PRINT' A J TAB (19) 5 1...* 
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660 
670 
680 
690 
70 
7.1.0 
720 
730 
7^0 
750 
760 
770 
730 
790 
80 
8.1.0 
820 
830 
B<?0 
850 
860 
870 
880 
890 
90 
9.1.0 
920 
930 
940 
950 
960 
970 
980 
990 



PRINT 

NEXT J. 

IF A0*<>"Y" THEN 850 

RESTORE 

REM K»»OK*>K»:»;:K>Ka<>i;» MORTGAGE PROCESSING 

PRINT 

" PROPERTY/ AMOUNT " i TAB < .!. 9 ) 5 " NAME " »T AB C 37 ) i " YRS " ? 

TAB < 52) i "PRCH DATE" 



x sou *>k xok jiok sok .iok xok xc 



PRINT 
PRINT 

PRINT " - " t TAB (19) i" -- " t TAB (. 37 ) i 

PRINT " -■- " ? TAB < 52 ) ? " " 

FOR I == 1 TO M 

READ T* 

IF T*-~"END" THEN 350 

READ N* 9 H* r A$ > D* >■ A r I...* 

IF r$<>"M" THEN 840 

PRINT N$ ? TAB ( 1 9 ) p 1-1$ J TAB < 37 > i A* , TAB ( 52 ) i D$ 

PRINT A*TAB<19)5L* 

PRINT 
NEXT I 

REM joHfOfsxoooKXOKjfOKio:* PROGRAM TERMINATION F'OINT xhojhokxokjiokxok 
PRINT 
PRINT 
STOP 

REM KXJOiKOKScwJfOKaoi;*: DATA ENTRIES FOLLOW 
DATA .If LIFE INSURANCE » JOHN A JONES? 12-23456 
DATA ANY INSURANCE COMPANY TOPEKA KANSAS 

DATA CfCARD BRAND Xi-JOHN OR JUDY DOE , 22 786 28982 1*0CT 
DA'F'A 50 0, 00. .CARD OFFICE BOX I'll 5 TOPEKA KANSAS 
DATA Si- COMMON STOCK s- AI3C CORP* 100 >■ JUN 5 1979 » 1234. 46? SAFE 
DATA Cy CREDIT CARD YfJOHN DOE? 11 234 12 » NOV 1980 
DATA 1000s. ABC INC BOX 123 MIAMI FLORIDA 

DATA Mr 1234 LORA PLACE? JOHN OR JUDY DOE » 30 r JUN 11 1979?35000 
DATA MORTGAGE AAA SERVICE DAYTON OHIO 42401 
DATA END 



KXJKXXCXSIOKXOKilOKXOKIIOKIKXOK 

tJUH 5 1979c 30 00 



1980 
DEPOSIT BOX 



RUN 

DO YOU WISH TO PRINT ALL ENTRIES (Y OR N)? 

'? Y 



CREDIT CARD/LIMIT 

CARD BRAND X 
500 

CREDIT CARD Y 
1000 



NAME/NOTIFY 



NUMBER 



EXP DATE 



JOHN OR JUDY DOE 22 786 28982 1 OCT 1980 
CARD OFFICE BOX 1415 TOPEKA KANSAS 



JOHN DOE 11 234 12 

ABC INC BOX 123 MIAMI FLORIDA 



NOU 1980 



INS TYPE/AMT 

LIFE INSURANCE 
30000 



INSURED/COMPANY 



POLICY # 



JOHN A JONES 12-23456 

ANY INSURANCE COMPANY TOPEKA KANSAS 



DATE 

JUN 5 1979 



SECURITY/PRICE 

COMMON STOCK 
1234.46 



COMPANY QTY 

ABC CORP 100 

SAFE DEPOSIT BOX 



DATE 

JUN 5 1979 
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PROPERTY/AMOUNT 

1234 LORA PLACE 
35000 



NAME 



YRS 



PRCH DATE 



JOHN OR JUDY DOE 30 JUN 11 1979 

MORTGAGE AAA SERVICE DAYTON OHIO 42401 



BREAK IN 880 



RUN 



DO YOU WISH TO PRINT ALL ENTRIES (Y OR N)? 

? N 

SHALL I PRINT CREDIT CARDS (Of INSURANCE <I), 

SECURITIES <S)» OR MORTGAGES <M>? 
? I 



INS TYPE/AMT 

LIFE INSURANCE 
30000 



INSURED/COMPANY 



POLICY # 



JOHN A JONES 12-23456 

ANY INSURANCE COMPANY TOPEKA KANSAS 



DATE 

JUN 5 1979 



BREAK IN 880 



MAJOR SYMBOL TABLE 



FINANCIAL RECORDS 



I 

I NAME ♦, DESCRIPTION 



MAXIMUM NUMBER OF DATA READS 

PRINT INDICATOR 

RECORD TYPE CODE 

CARD NAME/INSURANCE/SECURITY TYPE/PROPERTY 

NAME OF HOLDER 

ACCT NBR/QTY/YEARS 

DATE 

AMOUNT/LIMITATION 

LOCATION/ADDRESS 



I 


M 


I 


Alt. 


I 


T$ 


I 


N$ 


I 


H$ 


I 


A$ 


I 


D§ 


I 


A 


I 


Lf 







FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



TAB 



FORMATS PRINT LINE 
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INCOME TAX RECORDING 



Description 

This program can assist you in recording/computing the various items 
required for State and Federal income tax reporting. While it cannot 
produce the completed forms for you (because of changing laws and 
forms), it can assist with the tedious job of accumulating your results. 

Functions of the Program 

The program initializes the various income/deduction categories first. 
As the program exists in the listing provided, the first eight items are 
considered to be income categories. Item number 8 is not defined. The 
remaining items are the expense (deduction) categories. All data items 
are read to accumulate income items. Following the completion of 
reading the income items, the data is restored and the process is re- 
peated for the expense categories. 

Instructions for Use 

Prior to running the program, the income and deduction items must be 
entered using DATA statements. 

Data Entry 

All data is entered using DATA statements. 

Data Formats 

The format for both income and expense items is the same: 

I or D, Detailed item type code, Amount, Explanation 
See examples provided. 

Output Description 

See example provided. Output is produced in separate sections for 
income and deductions. Subtotals and totals are produced for all 
categories. 

Suggested Enhancements 

This program could easily be modified to accept input from disk or 
tape files that were accumulated throughout the year. 

Comments 

The results will be no better than the data provided. 
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20 REM INCOME.' TAX RECORDING PROGRAM 

30 REM >Ka<»:«»!K««>K»>K*>K*>!;>l<>K;K»;>l<>X)K)K!««ai:>KX)K*>K)K>(;H<**>KX»>K>K>K>KS<>KX*>K>KX>KX<>KX)K)i< 
40 REM THIS PROGRAM CAN BE" EXTREMELY USEFUL IN MAINTAINING THE 
50 REM INFORMATION THAI' YOU NEED TO PREPARE YOUR INCOME TAX 
60 REM AND IT WILL HELP YOU CATEGORIZE YOUR TAX FORM ITEMS. 
70 REM IT CANNOT COMPUTE YOUR TAX FOR YOU. CHANGING TAX LAWS 
BO REM AND FORMS REQUIRE YOUR DECISION MAKING IN THE PROCESS, 

100 REM aoicjfOKXOfciK DATA INITIALIZATION nosaoKSOKXOKjfOKaoKJK 

110 M=18 

120 M0=10000 

130 Ml =8 

140 DIM Cl$<18> 

150 DIM Dl*(13> 

160 C1*(1)="W" 

170 D1$<1 >=="WAGES" 

180 C.t*<2) = "B" 

190 Dl * < 2 ) = " BUSINESS/PROFESSION INCOME " 

200 C1$(3)="F" 

210 DISK 3) -"FARM INCOME" 

220 Cl*<4)="I n 

230 DIM 4)-" INTEREST INCOf-E" 

240 C1*<5) = "D" 

250 D 1 * < 5 ) = " DIVIDENDS " 

260 Cli|;(6)=="R" 

270 Dl * < 6 ) = " RENT/ROYALTY .INCOME " 

280 Cl*<7)="0" 

290 D1'4K7} = " OTHER INCOME" 

300 C1*<9)=="M" 

310 DISK 9) =" MOVING EXPENSES" 

320 Cl*<:iO)="C" 

33 Dl * ( 1 ) = " CONTRIBUTIONS " 

340 Cl*<ll)= n I" 

350 DISK 11)= "INTEREST EXPENSES" 

360 C:UIK 12 > = "'("" 

370 D1*<12) = ':TAXES PAID" 

380 C1*<13J="MD" 

390 D 1 $ ( 1 3 > = " MEDICAL /DEN TAL " 

400 C1<4K14> = "CT" 

410 Dl * ( 1'4 ) = " CASUAL! Y/THEF 1' " 

420 C1*(15)="E" 

430 D 1 * < 1 5 > = " ENTERTAINMENT/TRAVEL " 

440 C1*<16>~"B" 

450 D1*(16)="BUSINESS EXPENSE" 

460 C1$CI.7) = "MI" 

470 D1*(17)="MISC EXPENSE" 

480 Cl*<18>='0" 

490 D1!M1S> = "QTFIER EXPENSES" 

500 REM so: INCOME CATEGORIES ARE FIRST 8 POSITIONS OF THE ARRAY 

510 REM aoKXOKXOKXOKXOKW END OF CATEGORY ARRAY INPUTS ksokxokjkxhkjihiok 

520 REM J**:***** PRINT OF' INCOME ITEMS BY CATEGORIES kokkocnokmok 

530 PRINT "ALIGN 'TO TOP OF' PAGE" 

540 INPUT G$ 

550 PRINT "**»*:>KJioic»:>K!K»c!f<>K;icx:»os)iOK»:»;»c)KX* INCOME *>k)k»*>k*»«>k,«»x«*:>k*<>k*:>k;sok:k:w;k" 

560 FOR J = 1 TO Ml 

570 PRINT D1KKJ) 

580 FOR I = 1 TO M0 

590 READ T* 

600 IF T*="END" THEN 670 

610 READ CihD^S'H 

620 IF T*<>"I" THEN &&Q 



38 BASIC Computer Programs for the Home 



630 IF C*OCl$(J) THEN 660 

640 PRINT TAB(5).*S*STAB<50>5D 

650 T':l.=-Tl+D 

660 NEXT I 

670 PRINT TAB < 42 > 5 "TOTAL" ?TAB<50mi 

680 T2-T2+T1 

690 71=0 

710 RESTORE 

720 NEXT J 

730 RESTORE 

740 PRINT TAB < 34 > 5 "TOTAL INCOME" f TABOO ) H'2 

750 T2-0 

760 T1--0 

770 U0--U 

780 REM xxxx END OF INCOME - START DEDUCTION PRINT **** 

790 PRINT ")K»C)KXOK)K3K)lt)K)K)f()fOK)IOK>K5t!)K)tt)fO(«K)K DEDUCTIONS KXXKXOKJIOKXOKJIOIiXKJIOKXXJIOKXOIClK" 

BOO FOR J = JO TO M 

810 PRINT D1*<J) 

82 FOR I = 1 TO M0 

830 READ T* 

840 IF T*="END" THEN 910 

850 READ C*»D*S* 

860 IF T*<>"D" THEN 900 

870 IF C*<> C1*CJ) THEN 900 

880 PRINT TAB<5) ?S$?TAB<50 > 5D 

890 Tl-Tl+D 

900 NEXT I 

910 PRINT TAB<42> J "TOTAL" JTABO0 > JT1 

930 T2=T2+T1 

940 T1 = 

950 RESTORE 

960 NEXT J 

970 PRINT TAB < 36) 5 "TOTAL DEDUCTIONS ? TAB (50) ?T2 

930 T2=0 

990 T.1--0 

1000 REM X)K*»C*)K)KXCX)K3KK*X<)K*)K»CX»C>K*>K)K)KX)KiKX!K3«»(>l!X>!*XX)l!)KXX>!!K)K!K5K!l{)K»CXXC)l!)K 

1010 REM jkxokjiokxok DATA ENTRIES FOR INITIALIZATION xxxxxxx 

1020 REM xxokxxxxxoxxxxxxxxxxoxik DATA ENTRIES FOLLOW xxxxxxxxc 

1030 DATA I yWy 13. 45v EMPLOYER 1 

1040 DATA I.'i.W!>B9a0.46»EMPLOYER 2 

1050 DATA l~yIy.09s.BANK OR SAVINGS AND LOAN 1 

1060 DATA ly By 14. 35? SIGN PAINTING FOR XYZ CORP 

1070 DATA I,I3»13.63»SIGN PAINTING FOR COMPANY XYZ 

1080 DATA Is.Dy.41y DIVIDEND PAID BY ABC INC.. 

1090 DATA D > C y.14. 89 , CHURCH ABC 

1100 DATA DjCs.15.12i.XYZ CHARITY 

1110 DATA D y MD y 2 0.00. DOCTOR 2 FOR HOSPITAL VISIT 

1120 DATA DyMDySO.yDENTIST O FOR FILLINGS 

1130 DATA DyI'y45,00yAAA CREDIT CORP 

1140 DATA DyCTrl3.89yTHEFT OF TAPE RECORDER 

1150 DATA D y MI ^2. 50 y INCOME TAX PREPARATION 

1160 DATA DyEyl3.45'y BUSINESS LUNCH ON 12 JUN WITH MR X--MR Y 

1170 DATA DyBy.l2.10yPAINT FOR SIGN PAINTING 

1180 DATA END 

RUN 

ALIGN TO TOP OF PAGE 
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*#***######*#*#*#>}<##*#*>>>!: INCOME #****#**###**##*****#**** 

WAGES 

EMPLOYER 1 13.45 

EMPLOYER 2 8900.46 

TOTAL 8913.91 



BUSINESS/PROFESSION INCOME 

SIGN PAINTING FDR XYZ CORP 
SIGN PAINTING FOR COMPANY XYZ 



TOTAL 



14.35 
13.63 
27.98 



FARM INCOME 



TOTAL 



INTEREST INCOME 

BANK OR SAVINGS AND LOAN 1 



TOTAL 



.09 
.09 



DIVIDENDS 

DIVIDEND PAID BY ABC INC. 



TOTAL 



.41 
.41 



RENT/ROYALTY INCOME 


TOTAL 







OTHER INCOME 


TOTAL 









TOTAL 








#«>««#**#«* «>X*#X:«>}c DEDUCTIONS 
MOVING EXPENSES 



TOTAL INCOME 8942.39 
TOTAL 



CONTRIBUTIONS 

CHURCH ABC 
XYZ CHARITY 



MEDICAL/DENTAL 

DOCTOR Z FOR HOSPITAL VISIT 
DENTIST Q FOR FILLINGS 



TOTAL 



14.89 
15.12 





TOTAL 


30.01 


INTEREST EXPENSES 

AAA CREDIT CORP 


TOTAL 


45 
45 


TAXES PAID 


TOTAL 






200 

50 

250 



CASUALTY/THEFT 

THEFT OF TAPE RECORDER 



TOTAL 



13.89 
13.89 



ENTERTAINMENT/TRAVEL 

BUSINESS LUNCH ON 12 JUN WITH 



MR X-MR Y. 

TOTAL 



13.45 
13.45 
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BUSINESS EXPENSE 

PAINT FOR SIGN PAINTING 


TOTAL 


12.1 
12.1 


MISC EXPENSE 

INCOME TAX PREPARATION 


TOTAL 


2.5 
2.5 


OTHER EXPENSES 


TOTAL 






TOTAL DEDUCTIONS 366.95 



MAJOR SYMBOL TABLE 



INCOME TAX RECORDING 



I NAME 

I 



.. DESCRIPTION 



MAXIMUM NUMBER OF CATEGORIES 
MAXIMUM NUMBER OF DATA READS 
NUMBER OF INCOME CATEGORIES 
MASTER CATEGORY CODE ARRAY 

MASTER CATEGORY DESCRIPTION ARRAY 
INCOME/DEDUCTION CODE 
TRANSACTION CATEGORY CODE 
TRANSACTION AMOUNT 
TRANSACTION DESCRIPTION 
SUBTOTAL INCOME/DEDUCTIONS 
TOTAL INCOME/DEDUCTIONS 



I 


M 


I 


MO 


I 


Ml 


I 


Cl*( ). 


I 


m*< ). 


I 


T* 


I 


C$ 


I 


D 


I 


S$ 


I 


Tl 


I 

T- 


T2 



FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



I TAB 

I ARRAYS. 

I 



FORMATS PRINT LINE 
SINGLE DIMENSION 
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STOCKS 

Description 

This program can assist the investor in analyzing and keeping track of 
current holdings. There are three options available: 

1. Listing transactions 

2. Listing current holdings after computing the results of all buy/sell 
transactions and stock splits 

3. Producing a profit/loss analysis for specific stocks owned. 

Functions of the Program 

The program accepts all entries from DATA statements, interprets the 
transaction code, and produces the listing desired. The data expected 
for each type of transaction differs as shown below. 

Instructions for Use 

Transactions are entered in DATA statements prior to running the 
program. The data should be updated as transactions occur but can be 
gathered and entered just prior to a run. 

How to Enter Data 

All data is entered using DATA statements. 

Data Formats 

See examples. Data formats differ for each transaction type, as follows: 

1. Buv transactions: 

B, Company name, Stock symbol, Exchange, Date purchased, 
Price per share, Quantity of shares, Commission paid 

2. Sell transactions: 

S, Company name, Stock symbol, Exchange, Date purchased, 
Price per share. Quantity, Commission paid 

3. Dollar dividends: 

D, Stock symbol, Dividend amount per share, Date of dividend, 
Shares of record for dividend 

4. Share dividends: 

SD, Dividend per share, Date of dividend, 
Shares of record for dividend 

5. Stock splits: 

SS, Shares after split, Shares before split. Date of Split, 
Shares of record for split 
Output Description 

See examples provided. Three forms of output are available; each has 
easily readable headings for clarity and ease of interpretation. 
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20 REM STOCK MARKET RECORD PROGRAM 

30 REM*:**:****:**:**:**:*:**,'*)):* DATA INITIALIZATION ************* 

40 Ml =50 

50 M=1000 

60 DIM SI $(50) 

70 DIM CI* (30) 

SO DIM QH30) 

90 DIM PI (30) 

100 Nl = l 

1.1.0 S=0 

120 M0=0 

130 DIM Tl$(6) 

140 Tl*a)» "BOUGHT" 

150 T2*<l) = "l=!° 

160 T1*(2)="S0LD" 

170 T2*(2)-="S" 

ISO Tl!l>( 3 )=■"* DVD" 

190 T2$<3)=="D" 

20 T1*(4)="SHR DVD" 

210 T2!|i(4)=="SD" 

220 T1*(5)="SPLIT" 

230 T2*(5)="SS" 

240 Tl*( 6 )= : "****" 

250 PRINT' 

260 PRINT "THE FOLLOWING OPTIONS ARE AVAILABLE 

270 PRINT 

280 PRINT TAB(10)5 '1,. . A LIST OP ALL TRANSACTIONS" 

290 PRINT TAB(10>?"2,.. A LIST OF ALL CURRENT HOLDINGS" 

300 PRINT 7'AB(10)?"3,«. THE PROFIT/LOSS ON A GIVEN STOCK" 

310 PRINT 

320 PRINT "ENTER THE OPTION DESIRED ( 1, 2r OR 3)" 

330 INPUT D 

340 PRINT 

350 PRINT' 

360 IF O <> 3 THEN 460 

370 PRINT "ENTER THE STOCK SYMBOL TO EVALUATE" 

380 INPUT X* 

390 PRINT "ENTER THE CURRENT PRICE OF THE STOCK" 

400 INPUT V 

410 PRINT "ENTER THE CURRENT DATE" 

420 INPUT Dl* 

430 PRINT 

440 PRINT 

450 PRINT " TRANSACTION RECAP — " ? X*»TAB(50) JDli 

460 PRINT 

470 REM ************* PROCESSING AREA ******:****>x*:>ook:<<:>k*** 

430 FOR I == 1 TO M 

490 READ T* 

500 IF T* = "END" THEN 830 

510 IF T*="D" THEN 560 

520 IF T*="SS" THEN 620 

530 IF T*="SD" THEN 560 

540 READ C*i.S*i-E*i.D*>PfGlyC 

550 GOTO 630 

560 READ S*»N0»D*yK 

570 C*=" 

580 E*=° 

590 P=N0 

600 C=Q 

610 GOTO 630 

620 READ S*yN0?Nl!.D*>T3 

630 FOR J- 1 TO M0 

640 IF S*=S1*(J) THEN 710 

650 NEXT J 
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660 M0=M0+1 

670 S1*(M0)=S* 

680 M1=M0 

690 J=M0 

700 GOTO 720 

710 Ml-- J 

720 IF <> 1 THEN 750 

730 GOSUB 1360 

740 GOTO 820 

750 IF QOZ THEN 780 

760 GOSUB 1570 

770 GOTO 820 

780 IF 0<> 3 THEN 820 

790 IF S*<> XHi THEN 820 

80 GOSUB 1680 

810 GOTO 820 

820 NEXT I 

830 REM END OF MAIN PROCESSING LOOP xcxxxxxxxxxxxxxxxxxxxx 

840 IF O-l THEN 1320 

850 IF O <> 2 THEN 1070 

860 FOR I - 1 TO MO 

870 PRINT "ENTER THE CURRENT PRICE OF "JC1*<I>?" ( " »Si*<I) i " ) " 

880 INPUT Fl(I) 

890 NEXT I 

900 PRINT 

91 PRINT 

920 PRINT TAB(20> 5 "CURRENT STATUS OF HOLDINGS" 

930 PRINT 

940 PRINT 

950 PRINT " STOCK " i TAB < 20 ) 5 " SYMBOL " i TAB ( 30 ) ? " QTY HELD " i TAB ( 41 ) ? 

960 PRINT "PRICE" ?TAB( 51)? "VALUE" 

970 PRINT " " i TAB < 20 ) % " " ? TAB ( 30 ) ? " " 5 TAB < 41 ) 5 

980 PRINT " - " ? TAB < 51 ) i " - " 

990 FOR I = 1 TO M0 

100 PRINT Cl*(I)n'AB<2 3)?Sl*<I)>TAB(30)?Ql(I)rrAB<40); 

1010 PRINT P1C.I)JTAB<50>;P1<I>*G1(I> 

1020 T8-T8-KP1 <I)*G1 CI) ) 

1030 NEXT I 

1040 PRINT TAB ( 5 ) t " ======.■=== " 

1050 PRINT TAB (42) t "TOTAL" JTABCSO) f T8 

1060 GOTO 1240 

1070 IF O <> 3 THEN 1320 

1 080 PRINT 

1090 PRINT 

1100 PRINT TAB (24) ? "SUMMARY ANALYSIS' 

J. .1.10 PRINT 

1120 PRINT TAB(7>?"X SHARE COMM DUD I BOOK "J TAB < 42)? 

1 130 PRINT " CURRENT I " > TA 3 ( 53 ) ? " CURRENT " 

1 1 4 PRINT " SHARES " f TAB ( 7 ) i " I COST PAID RC VD " % 

1150 PRINT TAB<31)?"I TOTAL" J TAB (43) J "VALUE I " i TAB ( 53 )" POSITION " 

1160 PRINT " 1 1"? 

1170 PRINT TAB < 34) " " f TABC42) i " I" J TAB < 53) t " " 

1 ISO PRINTG9 } TAB ( 1 ) t P9 i TAB (18) ? C9 ? TAB < 27 ) t D? > TAB ( 33 ) i V9 ? 

1 190 PRINT TAB ( 4 1 ) J V*C!9 5 T A 3 ( 53 ) > ( V*G19 ) -V9 

120 0- II-' S9 = THEN 1240 

1210 PRINT TAB(35)?"sk" 

1220 PRINT 

1230 PRINT "* SHARE DIVIDEND 01" "5S9J" SHARES 

1240 PRINT 

1250 IF R9=0 THEN 1320 

1260 PRINT TABC28) ?D1* 

1270 PRINT TAB (20) "JKJKJK^JffXOKifOKXOKaCXJKJKJKXJKXXJKXJIHKJfOKJKX" 

1280 PRINT TAB (23) "BOOK VALUE IS "JV9/G9 

1290 PRINT TAB (20) "xxxxyxxxxKxxxyiixxxxxyKiKxiKyKxxxxiK'' 
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1300 PRINT TAB< 23) "CURRENT VALUE "?V 

1310 PRINT TAB(20) J " «>K3<>KW>K»*aOK>K»)K>KaOK)KX*C>KS<>K*)KXOK»<X " 

1320 PRINT 

1330 PRINT 

1340 STOP' 

1350 REM xokxokxoxxokhokxoic TRANSACTION INTERPRETATION ROUTINE *** 

1360 IF I <> 1 THEN 1430 

1370 PRINT TAB<28)? "TRANSACTION LIST" 

1380 PRINT 

1390 PRINT "TRANS COMPANY" ? TAB (24) t "SYB EX DATE" ? TAB (43) f "PRICF" t 

1400 PRINT TABOl) i "QTY" ?TAB(56) i "COMM" 

1 4 1 PRINT " — » ? TAB ( 24 ) i " — — " f TAB ( 43 ) i " — - " i 

1420 PRINT TAB(51 ) f " " ?TAB(56) 5 " " " 

1430 FOR J= 1 TO 5 

1440 IF T* <> T2*(J) THEN 1470 

1450 L=J 

1460 GOTO 1490 

1470 NEXT J 

1480 L=6 

1490 IF L>2 THEN 1530 

1500 PRINT T1*(L) rr.AB<8) ?C*5TAB(24) ?S*rr'AB(28) ?E*S 

1 51 PRINT TAB ( 3 1 ) ? D* ', TAB < 42 ) % P } TAB < 50 ) ? (3 J TAB < 55 ) i C 

1520 GOTO 1560 

1530 PRINT T1*(4>;TAB<8)?N0/N1»" " JT.UIKL) ?TAB(24) ;S$5TAB(31 ) ?D*f 

1540 PRINT TABOO) ?G 

1550 Nl=l 

1560 RETURN 

1570 REM xxxxxxxxxx ACCUMULATION ROUTINE FOR HOLDINGS *** 

1580 C1«(J)=C* 

.1.590 IF T*<>"B" THEN 1610 

1600 G):uj)=a:i(j)+a 

1610 IF 7*<>"S" THEN 1630 

1620 ai<j)==ai(j)-a 

1630 IF T*<>"SD" THEN 1650 

1640 01 ( J)==G1 < J) + (N0*O) 

1650 IF T*<>"SS" THEN 1670 

.1.660 01 ( J)=<01 ( J)-«) + <Q.-«N0/Nl ) 

1670 RETURN 

1680 REM xxxxxxx ACCUMULATION ROUTINE FOR PROFIT/LOSS ****** 

1690 IF S = 1 THEN 1730 

.1.70 PRINT TAB(23)?C$ 

1710 PRINT 

1720 S=l 

1730 IF TiHO-B' THEN 1800 

1740 PRINT " BOUGHT » TAB ( 3 ) % Q i TAB (IS),'" AT "J P i TAB C 25 ) t " - " t D* ', 

1750 PRINT TAB(37)" ■••• CHARGES? " ?TAB< 43) J CJ PRINT" ( " 5 (Q«P)+C5 " ) " 

1760 09=09+0 

.1.770 C9=C9+C 

1780 P9--P9+ (P*Q) 

179 V9- V9+ < G*p ) +c 

180 REM HANDLES SALES 
1810 IF T*<>"S" THEN 1880 

1 820 PRINT " SOLD " TAB (8)505 TAB < 1 3)5" AT " } P ; TAB ( 25 ) ? " - " f D* 5 

1830 PRINT TAB < 37 ) f " •■■• CHARGES I " f TAB ( 48 ) ? C I PRINT " ( " t < CW ) --C ? " ) " 

1840 09=09-0 

1350 C9=C9+C 

1860 P9=P9~<P*CO 

1870 V9=V9--<Q*P)+C 

1880 REM HANDLES DIVIDENDS 

1890 IF T*<>"D" THEN 1940 

1900 V9=V9-(G*N0) 

1910 D9=D9+<N0*a> 

1920 PRINT "DIVIDENDS *** OF " ?N0 5 TAB<25) i "--" 5D*?TAB(38) *G?TAB(44) ? 

1930 PRINT "SHARES "J PRINT" ( " J (O*N0) 5 " ) " 
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.1.940 REM HANDL.ES SHARE DIVIDENDS 

1950 IF T*<>"SD" THEN20 00 

1960 S9=S9+<N0)Ka> 

1970 S9=Q9+<N0*a> 

1980 PRINT "SHARE DIV XX)K • JNO ?TAB(25> i "--" ?D$T 

1990 PRINT "SHRS DVD=" i NO*!!? " SHRS" 

2000 REM HANDLES STOCK SPLITS 

2010 IF T*<>"SS" THEN 2050 

2020 PRINT "STK SPLIT ao™ ' ?N0? "/" i Nl 5TAB<25> ? 

2030 PRINT "SHARES" 

2040 a9==a'39-D) + <Q*N0/Nl ) 

2050 REM TOTAL PRINTING AREA 

2060 RETURN 

2070 REM JiOKJiOKJioooKX DATA ENTRIES FOLLC 

2080 DATA BcABC CORPORATION cABCcNYcJUN 5 1979c 12, 00 c 100 c 12. 15 

2090 DATA Be XYZ CQMPANYcXYZc Ac JUN 6 1979v 10 .22c200 c85. 33 

2100 DATA ScXYZ COMPANY cXYZc Ay OCT 7 1l.979rQB.Sar 10 c 21 . 11 

2110 DATA DcXYZcS.OScNOU 1979cl00 

2120 DATA SScXYZc3clcDEC 3:i. 1979c 10 

2130 DATA SDvXYZc.OScJAN 1 1980c 100 

2140 DATA Be XYZ COMPANY cXYZc Ac. .JAN 31 1980 c 75. 00 c 100 ■> 19.99 

2150 DATA ScABC CORPORATIONS ABCcNYc JAN 28 1980 c 14, 00 c50 c 4.55 

2160 DATA END 



rAB<3a>5Q>TAB<44>? 



• " ? OH t TAB < 38 ) * Q i TAB ( 44 ) i 



JKXOKiiOKJiOKSOKJiOKiiOKSOKJfC 



THE FOLLOWING OPTIONS ARE AVAILABLE 



1... A LIST OF ALL TRANSACTIONS 
2... A LIST OF ALL CURRENT HOLDINGS 



3. 



THE PROFIT/LOSS ON A GIVEN STOCK 



ENTER THE. OPTION DESIRED ( 1> 2i OR 3) 
'? 1 



TRANSACTION LIST 



TRANS 


COMPANY 


SYB 


EX 


DATE 


PRICE 


QTY 


COMM 


BOUGHT 


ABC CORPORATION 


ABC 


NY 


JUN 5 1979 


12 


100 


12.15 


BOUGHT 


XYZ COMPANY 


XYZ 


A 


JUN 6 1979 


100.22 


200 


35.33 


SOLD 


XYZ COMPANY 


XYZ 


A 


OCT 7 1979 


88.88 


100 


21.11 


%ttt 


3.05 DOLLAR DVD 


XYZ 




NOV 1979 




100 




#### 


3 STK SPLIT 


XYZ 




DEC 31 1979 




100 




**** 


.05 SHARE DVD 


XYZ 




JAN 1 1980 




100 




BOUGHT 


XYZ COMPANY 


XYZ 


A 


JAN 31 1980 


75 


100 


19.99 


SOLD 


ABC CORPORATION 


ABC 


NY 


JAN28 1980 


14 


50 


4.55 



BREAK IN 1340 



RUN 

THE FOLLOWING OPTIONS ARE AVAILABLE 

1... A LIST OF ALL TRANSACTIONS 
2... A LIST OF ALL CURRENT HOLDINGS 
3... THE PROFIT/LOSS ON A GIVEN STOCK 

ENTER THE OPTION DESIRED < 1c 2c OR 3) 
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ENTER THE CURRENT PRICE OF ABC CORPORATION (ABC) 
? 98.85 

ENTER THE CURRENT PRICE OF XYZ COMPANY <XYZ) 
? 67.89 



CURRENT STATUS OF HOLDINGS 



STOCK 

ABC CORPORATION 
XYZ COMPANY 



SYMBOL 

ABC 
XYZ 



QTY HELD PRICE 



50 
405 



98.85 
67.89 

TOTAL 



VALUE 

4942.5 
27495.5 

32438 



RUN 



THE FOLLOWING OPTIONS ARE AVAILABLE 

1... A LIST OF ALL TRANSACTIONS 
2... A LIST OF ALL CURRENT HOLDINGS 
3... THE PROFIT/LOSS ON A GIVEN STOCK 

ENTER THE OPTION DESIRED ( lr 2> OR 3) 
? 3 



ENTER THE STOCK SYMBOL TO EVALUATE 

? XYZ 

ENTER THE CURRENT PRICE OF THE STOCK 

? 55.25 

ENTER THE CURRENT DATE 

? JUN 19 1980 



TRANSACTION RECAP 
XYZ COMPANY 



XYZ 



JUN 19 1980 



BOUGHT 200 AT 100.22 
SOLD 100 AT 88.88 
DIVIDENDS *** OF 3.05 
STK SPLIT *#* 3 / 1 
SHARE DIV *** .05 
BOUGHT 100 AT 75 



-JUN 6 1979 - CHARGES: 35.33 < 20079.3 ) 

-OCT 7 1979 - CHARGES: 21.11 ( 8866.89 ) 

-NOV 1979 100 SHARES < 305 ) 
-DEC 31 1979 100 SHARES 

-JAN 1 1980 100 SHARES DVD= 5 SHARES 

-JAN 31 1980 - CHARGES: 19.99 ( 7519.99 > 



SUMMARY ANALYSIS 



SHARES I 

1 

405 



SHARE 
COST 

18656 



* SHARE DIVIDEND OF 



COMM 
PAID 


DVD 
RCVD 


I 

I 

-I 


BOOK 
TOTAL 


76.43 


305 
* 


18427.4 


SHARES 









CURRENT I CURRENT 

VALUE I POSITION 

I 

22376.3 3948.82 



JUN 19 1980 

BOOK VALUE IS 45.4998 
#$$##*#*##*###*#*##*#******##* 
CURRENT VALUE 55.25 
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BREAK IN 1340 



) 



MAJOR SYMBOL TABLE - STOCKS 

1 

I NAME , . DESCRIPTION 

j 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I- 



MAXIMUM NUMBER OF DATA READS 

ARRAY OF STOCK SYMBOLS 

ARRAY OF COMPANY NAMES 

ARRAY OF QTY HELD 

ARRAY OF PRICES PAID 

MASTER CATEGORY CODE ARRAY 

MASTER CATEGORY DESCRIPTION ARRAY 

OPTION NUMBER 

STOCK SYMBOL TO EVALUATE 

CURRENT PRICE OF STOCK 

CURRENT DATE 

TRANSACTION CATEGORY CODE 

TRANSACTION COMPANY NAME 

TRANSACTION STOCK SYMBOL 

TRANSACTION EXCHANGE 

TRANSACTION BATE 

TRANSACTION PRICE 

TRANSACTION QTY 

TRANSACTION COMMISSION COST 



M 

Sl$< 

Cl$( 

OK 

Pl< 

Tl$< 

T2§( 



X$ 

Dl* 

T$ 

C$ 

S* 

E§ 

D* 

P 

Q 

C 



» ♦ 



FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



I TAB 
I GOSUB 
I DIM 

I 



FORMATS PRINT LINE 
BRANCHES AND RETURNS 
SINGLE DIMENSION ARRAY 
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Auto Maintenance 50 

Gasoline Use Computation— Basic Version 54 

Gasoline Use Computation— Extended Version 56 

Automobile Comparisons 59 

Trip Planning— Basic Version 64 

Trip Planning— Extended Version 67 
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AUTO MAINTENANCE 

Description 

Automobiles are increasing in price every day. This program will assist 
you in insuring that recommended maintenance (service) actions are 
taken to protect your investment. In addition, it provides an ideal 
record for showing to prospective buyers. 

Functions of the Program 

The program reads the data items that reflect the manufacturer's recom- 
mended maintenance schedules and the service accomplished by you. 
The basic schedule items are extended by the program (based upon 
mileage) through the current mileage on the vehicle. Maintenance sched- 
ules and records are printed, as requested. 

Instructions for Use 

Data entries of all recommended service items in the automobile owner's 
manual must be entered into the program prior to running. Service per- 
formed should be entered as it is accomplished. 

Data Entrv 

All data is entered using DATA statements. 

Data Formats 

Three formats are required: 

1. The first item is the automobile's purchase date: 

Month, Year 

2. Basic manufacturer recommended service schedules are then added 
in the following form: 

Service code, Description, Frequency in miles, 
Frequency in months 

3. Service accomplished is entered in the following form: 

Service code, Mileage, Month, Year 
Note that an END card is required to separate the basic service re- 
quirements from the items accomplished. 

Output Description 

See example provided. Three outputs are available: 

1. A list of the basic maintenance requirements and their frequency. 

2. A detailed list of maintenance accomplished. 

3. A schedule of the next scheduled accomplishment of each of the 
service requirements. 
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?0 REM AUTOMOBILE MAINTENANCE RECORD - BASIC 

30 REM ************ DATA INITIALIZATION ********************* 

40 M0=25 

50 10=1000 

60 DIM M<MO) 

70 DIM I*(MO) 

80 DIM C*(MO) 

90 DIM LI (MO) 

100 DIM L1*(M0) 

110 DIM D0$(12) 

120' FOR 1 = 1 TO 12 

130 READ DO*<I) 

140 NEXT I 

150 READ T1$»Y1 

160 DIM T<M0> 

170 REM ***************** MAIN PROCESSING AREA *************** 

180 REM ******* READ INITIAL SCHEDULES 

190 FOR I = 1 TO MO 

200 READ C*(I) 

210 IF C$<I)="END" THEN 240 

220 READ I$(I)fM(I)fT(I) 

230 NEXT I 

240 MO = 1-1 

250 PRINT "WOULD YOU LIKE TO SEE THE BASIC SCHEDULE (Y OR N)? 

260 INPUT A* 

270 IF A$<>"Y" THEN 330 

280 PRINT ■ ITEM" JTAB<30)J "MILES" ?TAB<40)i "MONTHS" 

290 PRINT " ">TAB(30>5" "5TAB(40>5" " 

300 FOR I = 1 TO MO 

310 PRINT I$(I)JTAB(30)5M(I)5TAB<40)5T<I> 

320 NEXT I 

330 REM ******* PRINTS MAINTENANCE RECORD ***************** 

340 PRINT 

350 PRINT 

360 PRINT "ENTER CURRENT MILEAGE" 

370 INPUT Ml 

380 PRINT "SHALL I PRINT THE MAINTENANCE RECORD (Y OR N>? 

390 INPUT A* 

400 PRINT "ALIGN PAPER FOR PRINTING" 

410 INPUT Al$ 

420 IF A*<>"Y" THEN 500 

430 PRINT »************************#*******************************" 

440 PRINT 

450 PRINT "RECORD OF SCHEDULED MAINTENANCE ACCOMPLISHED" 

460 PRINT 

470 PRINT "C0DE"5TAB<10>?" ITEM" 5TAB<30) i "AT MILES" STAB(40) i " DATE" 

480 PRINT " " i TAB( 10) i " " 5TAB(30) ? " " * 

490 PRINT TAB(40>5" " 

500 K=l 

510 READ C9$ 

520 IF C9*="END" THEN 690 

530 READ M9*M9*»Y9 

540 FOR I = 1 TO MO 

550 IF C9$OC$(I) THEN 600 

560 IF L1(I)>=M9 THEN 590 

570 LKI)=M9 

580 L1*(I)=M9* 

590 GOTO 610 

600 NEXT I 

610 IF A*<>"Y" THEN 670 

620 FOR 1=1 TO MO 

630 IF C9$=C$(I> THEN 660 

640 NEXT I 

650 I*(I)=" " 
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SCHEDULED MAINTENANCE - BASED UPON MILEAGE" 

ITEH"?TAB<30) !" FREG" ?TAB<40) i "LAST" ?TAB<50> ? ' SCHED" 

> 5TAB<30> ? • " ?TAB<40> 5 » ' ? 



660 PRINT C9$?TAB(10>?Iif < I) ?TAB(30) ?M9?TAB<40) ?M9$S Y9 

670 K=K+1 

680 IF K<=10 THEN 510 

690 PRINT 

700 PRINT 

710 PRINT •*****>I<*****«#******»«******#*##******************>x>};***'' 

720 PRINT 

730 PRINT 

740 PRINT 

750 PRINT 

760 PRINT 

770 PRINT TAB<50>5 

780 FOR J=l TO MO 

790 I=LKJ)+M(J) 

800 IF I>M1 THEN 820 

810 X$="*" 

820 PRINT IS<J>?TAB<30)?M<J>?TAB<40>?L1<J)?TAB<50>?I?X$ 

830 X$=° ■ 

840 NEXT J 

850 PRINT 

860 PRINT "CURRENT MILEAGE IS "?M:l. 

870 PRINT 

880 PRINT "*********#************>«********************************■ 
890 REM ***************** PROGRAM TERMINATION POINT ********** 
900 PRINT 

910 PRINT 

920 STOP 

930 REM ************ DATA FOR INITIALIZATION **************** 

940 DATA JAN ? FEB ? MAR ? APR ? MAY ? JUN ? JUL? AUG? SEP? OCT » NOV ? DEC 

950 REM *********** DATA ENTRY FOLLOWS ******************** 

960 DATA JUN?1978 

970 DATA OILF?O.IL FILTER? 12000? 12 

980 DATA AIRF?AIR FILTER? 12000? 12 

990 DATA ROTATE?ROTATE TIRES?6000?6 

1000 DATA LUBE?LUBRICATE?12000?12 

1010 DATA CHKTWfCHECK TIRE WEAR?3000?3 

1020 DATA CHKAL» CHECK ALIGNMENT?4000?4 

1030 DATA END 

1040 DATA 0ILF?13000? JUN?1979 

1050 DATA LUBE?11000?MAY?1979 

1060 DATA END 



RUN 

WOULD YOU LIKE TO SEE THE BASIC SCHEDULE (Y OR N>? 
? Y 
ITEM MILES MONTHS 



OIL FILTER 
AIR FILTER 
ROTATE TIRES 
LUBRICATE 
CHECK TIRE WEAR 
CHECK ALIGNMENT 



12000 


12 


12000 


12 


6000 


6 


12000 


12 


3000 


3 


4000 


4 



ENTER CURRENT MILEAGE 

? 13700 

SHALL I PRINT THE MAINTENANCE RECORD <Y OR N>? 

? Y 

ALIGN PAPER FOR PRINTING 
•? 



52 BASIC Computer Programs for the Home 



RECORD OF SCHEDULED MAINTENANCE ACCOMPLISHED 
CODE ITEM AT MILES DATE 



OILF 
LUBE 



OIL FILTER- 
LUBRICATE 



13000 
11000 



JUN 1979 
MAY 1979 



**mM%****%**%*******%********************************* 



SCHEDULED MAINTENANCE - BASED UPON MILEAGE 
ITEM FREQ LAST 



OIL FILTER 
AIR FILTER 
ROTATE TIRES 
LUBRICATE 
CHECK TIRE WEAR 
CHECK ALIGNMENT 



3CHED 



12000 


13000 


25000 


12000 





12000 * 


6000 





6000 # 


12000 


11000 


23000 


3000 





3000 * 


4000 





4000 * 



CURRENT MILEAGE IS 13700 
BREAK IN 920 



MAJOR SYMBOL TABLE - AUTO MAINTENANCE 
.. DESCRIPTION 



I NAME 

I 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I- 



MO 

10 

M< > 

I*< 

C$< 

Ll( 

Ll$< 

D0*< 

T< ) 

Tl* 

Yl 

Ml 

C9* 

M9 

M9$ 

Y9 



NUMBER OF MASTER SERVICE ITEMS 

MAXIMUM NUMBER OF DATA READS 

MASTER MILEAGE ARRAY 

MASTER SERVICE RGMNTS ARRAY 

MASTER CODE FOR SERVICE ITEMS ARRAY 

LATEST SERVICE -MILEAGE ARRAY 

LATEST SERVICE -MONTH ARRAY 

MONTH NAME ARRAY 

MASTER TIME ARRAY 

PURCHASE MONTH 

PURCHASE YEAR 

CURRENT MILEAGE 

TRANSACTION CODE IN 

TRANSACTION MILEAGE IN 

TRANSACTION MONTH IN 

TRANSACTION YEAR IN 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 
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GASOLINE USE COMPUTATION - BASIC VERSION 

Description 

The rising cost of gasoline makes this program more useful each day 
since it allows you to compute the current average miles per gallon for 
your automobile(s). 

Functions of the Program 

The program requests from you the initial mileage for the period and 
the date that the recording period started. Following this, the gasoline 
used during the period is entered along with the mileage at the end of 
the period. The program then computes miles driven, total gasoline 
used, and the average miles per gallon for the period. 

Instructions for Use 

Record your mileage and the gasoline used prior to running the pro- 
gram. Supply this information in response to the program's request. 

Data Entry 

All data is entered in response to the program's request, through the 
keyboard. 

Output Description 

See example provided. 

Suggested Enhancements 

See the extended version for historical recordkeeping functions. 



20 REM GASOLINE MILEAGE ANALYSIS 

30 REM ********#******# riATA INITIALIZATION a******************* 

40 M=1000 

50 PRINT "ENTER THE INITIAL MILEAGE? DATE OF RECORDING" 

60 INPUT M0*D0$ 

70 PRINT "ENTER THE GASOLINE USED (0 WHEN FINISHED) 

30 FOR I = 1 TO H 

90 G=0 

100 INPUT G 

110 IF G=0 THEN 140 

120 G1=G1+G 

130 NEXT I 

140 PRINT "ENTER ENDING MILEAGErDATE" 

150 INPUT MV?D9$ 

160 REM *«##*##*#*### PROCESSING AREA ***#***####«###«!(<« 

170 M=M9~M0 

180 C=M/G1 

190 PRINT 

200 PRINT 

210 PRINT ■###««##*«#$««*######*#*#####*#*##«#" 
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220 PRINT "FOR THE PERIOD * ? D0$ r "-" ?D9* 

230 PRINT " MILES DRIVEN* "JM 

240 PRINT " GASOLINE USED: "SGI 

250 PRINT ■ AVG MILES/GALLON? " »C 

260 PRINT " ***************************************** " 

270 REM *************** PROGRAM TERMINATION POINT **************** 

280 PRINT 

290 PRINT 

300 STOP 



RUN 
ENT 
? 1 
?? 
ENT 
? 1 
? IE 
? IE 
? 2( 
v 2C 



ER THE INITIAL MILEAGE , DATE OF RECORDING 

0000 

JUL 5 1979 

ER THE GASOLINE USED (0 WHEN FINISHED) 





ENTER ENDING MILEAGE t DATE 
'? 1 1000 1 AUG 1 1979 



FOR THE PERIOD JUL 5 1979-AUG 1 1979 
MILES DRIVEN! 1000 
GASOLINE USEDJ 100 
AVG MILES/GALLON! 10 



BREAK IN 300 



MAJOR SYMBOL TABLE 



GASOLINE USE 



BASIC 

1 

I 



I NAME 



DESCRIPTION 



MAXIMUM NUMBER OF DATA READS I 

INITIAL MILEAGE I 

DATE OF INITIAL MILEAGE I 

GASOLINE USED I 

TOTAL GASOLINE USED I 

ENDING MILEAGE I 

DATE OF ENDING MILEAGE I 

MILES DRIVEN I 

AVERAGE MILES/GALLON I 

1 



I 


M 


I 


MO 


I 


D0$ 


I 


G 


I 


Gl 


I 


M9 


I 


D9$ 


I 


M 


I 


C 
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GASOLINE USE COMPUTATION - EXTENDED VERSION 

Description 

This program extends the basic version shown previously by adding a 
historical record of gas mileage and consumption. 

Functions of the Program 

See the basic version. This program adds to these functions the capa- 
bility to print data items from past periods. After each analysis, the 
format to be supplied for historical use is printed for you. 

Instructions for Use 

Record your mileage and gas consumption prior to running the pro- 
gram. After processing, enter the information as DATA statements in 
accordance with the instructions given. 

Data Entry 

Current information is entered in response to program request. His- 
torical information is entered using DATA statements. 

Data Formats 

The format of the historical data is as follows: 

Starting month-day-year, Ending month-day-year, 
Ending mileage, Miles driven during period, Gasoline used 

Output Description 

See example provided. 



2.0 REM GASOLINE' USE COMPUTATION 

30 REM ^KOKXOKXOOOKXOKSOOOKK DATA INITIALIZATION XOKXOKKXOIOKXOKiiaKXOKiOOK 

f0 M=10 00 

50 PRINT "DO YOU WISH TO ANALYZE PAST (P)s- OR CURRENT (C) DATA?" 

60 .INPUT A* 

70 IF A$="P" THEN 390 

60 PRINT "ENTER THE INITIAL MILEAGE? DATE OF RECORDING" 

90 INPUT MO* DO* 

100 PRINT "ENTER THE GASOLINE USED (0 WHEN FINISHED)" 

110 FOR I = 1 TO i-l 

120 G=0 

130 INPUT G 

M0 IF G=0 THEN 170 

150 G:l=G:l+G 

160 NEXT I 

170 PRINT "ENTER ENDING MILEAGE? DATE" 

ISO INPUT M9fD9* 
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190 
20 
210 
220 
230 
2-90 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
40 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
6.1.0 
62 a 
630 
640 



"X!i<>IC!KX«>K»<>!:X<>K»:>K. 1 l<>k'!KJK».>i;SK>K. , K>Ka<>KSC>K»)KK>K*));>K>KXJKW>KM<*" 

"FOR THE PERIOD " JD0*» "-" JD9* 
MILE'S DRIVEN? "?M 
GASOLINE USED i" ", Gl 
AVG MILES/GALLON! "?C 

" >Ka<>KXOK>IO(;>IOK;K>K*X»OK!i<>K*>KJK»C»:>KXOK>KXSOK*>KJK>KX>«»OK*>K!iOK " 



REM KJtcsoKSOKJiOKKOKJioKifOK PROCESSING AREA xoiocfOKjfOKSofOioxwacxoKJK 
REM X5K>ioi;jK»!)f<>K**!i<>K ANALYSIS OF CURRENT PERFORMANCE xxxxxxokx 
M-M9-M0 
OM/G1 
PRINT 
PRINT- 
PRINT 
PRINT 
PRINT 
PRINT- 
PRINT 
•PRINT 
PRINT 
PRINT- 
PRINT 
PRINT" 
PRINT 

PRINT "WOULD YOU LIKE TO SEE PAST DATA NOW <Y OR N>? 
INPUT M 

IF A$<> n Y" THEN 560 

REM xxxokxokxxxxxxx ANALYSIS OF PAST 
PRINT 
PRINT- 
PRINT 
PRINT- 
PRINT 
PRINT 
FOR X- 



" ENTER 
AS THE 



" JD0*» " » " 5D9$» " ? " 5M9? " , " 
LAST DATA STATEMENT BEFORE THE 



tMt" > 
END 



"tGl 
CARD" 



PERFORMANCE xoKXSKXOKJtoooic* 



" PERIODS RECORDED " t TAB ( 25 ) ? " MILES " t TAB ( 33 ) t " GALi 
TAB < 41 ) > "AUG MPG " > TAB < 51 ) } " END MILEAGE " 



.ONS"? 



-" JTAB( 25 )>"■-• - 
i TAB (51 >} "- 



'J TAB (33) J ' 



340 



TAB(41)?"~ 

1 TO M 

READ DO* 

IF D0*»"END" THEN 

READ D9*yM9yM»Gl 

PRINT D $■ ? " - " J D9* 5 TAB ( 25 > ? M i TAB ( 33 ) 5 Gl t TAB (41)? M/Gl i TAB ( 51 ) i M9 

M5=M3+M 

G5=G5+G1 
NEXT I 

PRINT TAB < 25 ) 5 ° " i TAB ( 33 ) } " » 5 TAB (41);° - » 

PRINT " TOTAL RECORDED " f TAB ( 25 ) i M5 ? TAB ( 33 ) » G5 1 TAB ( 41 ) ? M5/G5 
REM xoKaoKxoKaaofotcjfOKXOKX PROGRAM TERMINATION POINT xxxxxxxxxxx 
PRINT- 
PRINT 
STOP 

REM XOKJfOKKOKJtOKJfOKitOKaOIOK 

DATA JUN 1 1979* JUL 
DATA JUL 2 1-979,. AUG 
DATA AUG .1.9 1979 »SEF 
DATA END 



DATA ENTRIES FOLLOW 
1 1 979 , 320 , 1 » 1 
IS 1979 > 3351) » 1 3(r0 >■ Z(T0 

1 1979?36000i.2000v300 



WSOKJOCJiOKJIOKXOKJfOKJiGfC;* 



WISH TO ANALYZE PAST (P)t OR CURRENT (C) DATA? 

DATE OF RECORDING 
WHEN FINISHED) 



RUN 

DO YOU 

? C 

ENTER THE INITIAL MILEAGE* 

? 36000>SEP 1 1979 

ENTER THE GASOLINE USED <0 

f 13 

? 15 

? 10 

? 12 

? 

ENTER ENDING MILEAGEjDATE 
? 36500, SEP 15 1979 
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***************************************** 

FOR THE PERIOD SEP 1 1979-SEP 15 1979 
MILES DRIVEN: 500 
GASOLINE USED? 50 

AVG miles/gallon: 10 

*************************1<*************** 



ENTFR SEP 1 1979, SEP 15 1979* 36500 * 500 ? 50 
AS THE LAST DATA STATEMENT BEFORE THE END CARD 

WOULD YOU LIKE TO SEE PAST DATA NOW (Y OR N>? 
-? y 



PERIODS RECORDED 



JUN 1 1979 - 
JUL 2 1979 - 
AUG 19 1979 



JUL 1 1979 

AUG 15 1979 

- SEP 1 1979 



MILES 

1000 
1500 
2000 



TOTAL RECORDED 



4500 



GALLONS AVG MPG END MILEAGE 



100 
200 
300 



600 



10 

7.5 

6.66667 



32000 
33500 
36000 



7.5 



BREAK IN 590 



MAJOR SYMBOL TABLE - GASOLINE USE - EXTENDED 

j 1 

I NAME .. DESCRIPTION I 

X 1 

I M .. MAXIMUM NUMBER OF DATA READS I 
I MO .. INITIAL MILEAGE I 

I DO* .. DATE OF INITIAL MILEAGE I 
I G . . GASOLINE USED I 

I Gl .. TOTAL GASOLINE USED I 

I M9 .. ENDING MILEAGE I 

I D9* . . DATE OF ENDING MILEAGE I 

I M .. MILES DRIVEN I 

I C . . AVERAGE MILES/GALLON I 

I M5 .. OVERALL MILES DRIVEN I 

I G5 .. OVERALL GASOLINE USED I 
x 1 

FUNCTIONS USED 

X 1 

I NAME . . DESCRIPTION I 

X 1 

I TAB .. FORMATS PRINT LINES I 

X 1 
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AUTOMOBILE COMPARISONS 

Description 

This program has been designed to assist the automobile shopping family 
in the evaluation of the costs of owning the various models being con- 
sidered. The selection can then be made with a better idea of what the 
total costs of the model really are. 

Functions of the Program 

The program compares the specified number of automobiles based upon 
several vital costs of automobile ownership. These costs are computed 
for the time period requested. The costs analyzed include: gasoline, 
maintenance, depreciation, insurance, and other costs. Each cost compu- 
tation is separated for ease in adding other cost categories. 

Instructions for Use 

Run the program and enter the cost data in response to the program's 
requests. 

Data Entry 

Data is entered through the keyboard, in response to the program's 
request. 

Output Description 

See example provided. Each automobile is processed and printed sepa- 
rately. Annual ownership costs are printed in detail, and totals are 
provided for the number of years specified. 



20 REM AUTOMOBILE COMPARISON PROGRAM 

30 REM ******************* DATA INITIALIZATION ****************** 

40 DIM C<10) 

50 DIM N$<6) 

60 DIM G<6) 

70 DIM D2(6) 

80 DIM M(10>6> 

90 DIM V<10»6> 

100 DIM P<10>6> 

110 DIM 0<10>6> 

120 DIM Gl<6> 

130 DIM T<6) 

140 PRINT 

150 PRINT "HOW MANY AUTOMOBILES ARE WE COMPARING?" 

160 INPUT N 

170 PRINT "ENTER THE NUMBER OF YEARS FOR THE ANALYSIS " 

180 INPUT Y 

190 PRINT "ENTER THE AVERAGE ANNUAL MILES IT IS TO BE DRIVEN" 

200 INPUT D 

210 PRINT "ENTER THE EXPECTED COST/GALLON OF GAS" 
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220 INPUT CO 

230 PRINT 

240 FOR I = 1 TO N 

250 PRINT 

260 PRINT "ENTER FOR AUTOMOBILE NUMBER " J I 

270 PRINT "NAME" 

280 INPUT N$<I> 

290 PRINT "INITIAL COST (INCLUDE SALES TAX, ETC)" 

300 INPUT C(I) 

310 PRINT "MILES PER 3ALL0N ESTIMATE" 

320 INPUT G(I) 

330 FOR J = 1 TO Y 

340 PRINT 

350 PRINT "ENTER FOR YEAR ■ J J 

360 PRINT "MAINTENANCE COST" 

370 INPUT M(I>J) 

380 PRINT "APPROX MALUE AT YEAR END" 

390 INPUT V<I»,J) 

400 PRINT "INSURANCE COSTS " 

410 INPUT P<I?J) 

420 PRINT "ENTER OTHER OPERATING COSTS " 

430 INPUT 0<I rJ> 

440 NEXT J 

450 NEXT I 

460 PRINT 

470 PRINT "***********«***#**************************#****#*" 

480 PRINT " ANALYSIS RESULTS" 

490 PRINT "Jit**********************************************:***" 

500 PRINT 

5:1.0 REM **************** PRINT OF RESULTS **************** 

520 FOR I = 1 TON 

530 PRINT "AUTO! " UN* ( I ) 5TAB< 20) i "PRICE : " 5C< I ) ?TAB< 35) S " MPG J " 5G< I ) 

540 PRINT 

550 PRINT "ANNUAL OPERATING COSTS" 

560 PRINT "ITEM" 5 

570 FOR K=l TO Y 

580 PRINT TAB<K*10)?* YEAR'JKr 

590 NEXT K" 

600 PRINT 

610 FOR K=l TO Y+l 

620 PRINT TAB(<K-1)*10)5" "5 

630 NEXT K 

640 PRINT 

650 REM ********* 

660 PRINT "GAS *"5 

670 FOR K=.L TO Y 

680 Gl(K)=ti/G<I)*CO 

690 PRINT TAB<K*10) »61(K) i 

700 NEXT K 

710 PRINT 

720 REM ********* 

730 PRINT "MAINT $» i 

740 FOR K=l TO Y 

750 PRINT TAB(K*10)JM(I»K)» 

760 NEXT K 

770 PRINT 

780 REM ********* 

790 PRINT "DEPREC $*5 

BOO FOR K=l TO Y 

810 IF KOI THEN 840 
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820 


D2<K>=C<I>-V<I,K) 


830 


GOTO 850 


840 


D2(K)=V(I,K-1)-V(I,K) 


850 


PRINT TAB(K*10);ri2<K) ', 


860 


NEXT K 


870 


PRINT 


880 REM ********** 


890 


PRINT "INSUR $"5 


900 


FOR K=l TO Y 


9.10 


PRINT TAB<K*10)!P(IrK>* 


920 


NEXT K 


930 


PRINT 


940 REM ********* 


950 


PRINT "OTHER $" i 


960 


FOR K=l TO Y 


970 


PRINT TAB<K*10)fO<I,K)f 


980 


NEXT K 


990 


PRINT 


1000 


FOR K=l TO Y 


1010 


PRINT TAB(K*10)5" ■* 


1020 


NEXT K 


1030 


PRINT 


1040 


PRINT "TOTAL"? 


1050 


FOR K=l TO Y 


1060 


T < K ) =M < I , K ) +D2 < K ) +P ( I f K ) +G 1 ( K ) +0 < I , K ) 


.1070 


T=T+T(K) 


1080 


PRINT TAB<K*10)?T<K>? 


.1090 


NEXT K 


1100 


•PRINT 


1110 


PRINT 


1120 


PRINT "COST/MILE" ', 


1130 


FOR K=l TO Y 


1.140 


PRINT TAB(K*10) ;T(K>/Df 


1150 


NEXT K 


1160 


PRINT 


1170 


PRINT 


1180 


PRINT "OVERALL MILES DRI VEN: " ? Y*D? " 


1190 


T=0 


1200 


PRINT ********************************* 


1210 


PRINT 


1220 


NEXT I 


1230 


REM ************** PROGRAM TERMINATION pi 


1240 


PRINT 


1250 


PRINT 


1260 


STOP 



cost/mile: ■jt/<y*d> 






RUN 

HOU MANY AUTOMOBILES ARE WE COMPARING? 

? 1 

ENTER THE NUMBER OF YEARS FOR THE ANALYSIS 

'? 2 

ENTER THE AVERAGE ANNUAL MILES IT IS TO BE DRIVEN 

? 10000 

ENTER THE EXPECTED COST/GALLON OF GAS 



Automobile Related Programs 61 



ENTER FOR AUTOMOBILE NUMBER 1 

NAME 

? BRAND X 

INITIAL COST (INCLUDE SALES TAX? ETC) 

? 5000 

MILES PER GALLON ESTIMATE 

? 10 



ENTER FOR YEAR 1 

MAINTENANCE COST 

f 100 

(WROX VALUE AT YEAR END 

'? 3000 

INSURANCE COSTS 

? 100 

ENTER OTHER OPERATING COSTS 

f 100 



ENTER FOR YEAR 2 

MAINTENANCE COST 

'> 200 

APPROX VALUE AT YEAR END 

'? 2000 

INSURANCE COSTS 

? 100 

ENTER OTHER OPERATING COSTS 

'? 100 



ANALYSIS RESULTS 
**#**«*X<**#***##*#**#« ************************** 

AUTO,* BRAND X PRICE i 5000 MPGJ 10 



COST/MILE .285 .195 

OVERALL MILES DRIVEN! 20000 COST/MILE: .24 
************************************************** 



ANNUAL OPERATING COSTS 
ITEM YEAR 1 YEAR 2 

GAS * 550 550 



MAI NT * 


100 


200 


DEPREC * 


2000 


1000 


INSUR $ 


100 


100 


OTHER $ 


100 


100 



TOTAL 2850 1950 
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MAJOR SYMBOL TABLE - CAR COMPARISONS 
NAME .. DESCRIPTION 



— I 
I 

— I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

— I 



C< 

G< 

D2( 

M( 

V< 

N$< 

P< 

0< 

Gl< 

T( 

N 

Y 

D 

CO 

T 



INITIAL COST ARRAY 

MILES/GALLON ARRAY 

DEPRECIATION ARRAY 

MAINTENANCE COSTS 

VALUES AT YEAR END ARRAY 

NAMES OF AUTOS 

INSURANCE COSTS 

OTHER COSTS 

GASOLINE COSTS YEARLY 

TOTAL COSTS PER YEAR 

NUMBER OF AUTOS TO COMPARE 

NUMBER OF YEARS FOR THE COMPARISON 

AVERAGE ANNUAL MILES DRIVEN 

EXPECTED COST PER GALLON 

TOTAL COSTS 



FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINES 
2 DIMENSION ARRAYS 
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TRIP PLANNING - BASIC VERSION 

Description 

This program offers assistance in planning your vacations and other 
automobile travel. Daily budgets and total trip costs are computed for 
your use. 

Functions of the Program 

The program accepts keyboard inputs concerning the trip and produces 
a table showing the projected itinerary and costs for each type of ex- 
pense incurred. Totals for each day are provided in addition to total 
trip costs. 

Instructions for Use 

Run the program and answer the questions asked by the program. 

Data Entry 

All data is entered in response to the program's requests. 

Output Description 

See example provided. A table of costs is produced that details the 
itinerary and produces totals for all costs. 



20 REM TRIP ANALYSIS - BASIC 

30 REM xosoooksoksoicxok DATA INITIALIZATION jkxx**************** 

-40 DIM D*<15> 

50 DIM M(IS) 

60 DIM FC15) 

70 DIM I... CI. 5) 

80 DIM 0(15) 

90 DIM TCI. 5) 

100 PRINT "ENTER THE NAME FUR THE TRIP" 

1.1.0 INPUT' N* 

.1.20 PRINT "ENTER THE MILES/GALLON YOU EXPECT TO ACHIEVE" 

130 INPUT C 

mQ PRINT "ENTER THE AVERAGE COST PER GALLON YOU EXPECT TO PAY" 

150 INPUT G 

.1.60 PRINT "ENTER THE NUMBER OF DAYS IT WILL. TAKE YOU" 

170 INPUT' Dl 

ISO FOR J= 1 TO 01 

190 PRINT "FOR DAY" 5 J 

200 PRINT "ENTER STOPPING POINT s-MILES TRAVELED" 

210 INPUT D*(J)yM<J) 

220 PRINT "ENTER YOUR COST FOR MEALS y LODGING r OTHER I.E.? 7by2b,b0yl0 

23 INPUT F < ,.0 y L < J > y < J ) 

2-10 NEXT J 

250 REM aoKHOKXOicsioKJfoioioKXOKiK PRINT OF RESULTS xoicioKXOKJioiejioisJK********: 
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260 PRINT 

270 PRINT 

280 PRINT " «*)K;K>K)K>KX«W»)K»C«)KXA'*>K»)fiS<>K«)K!K>K«>K«>K!KW«>K)KW)K>t;>K«»<>K>K)K*>K*>K*JK " 

290 PRINT " RESULTS OF ANALYSIS" 

30 PRINT " >K>OC*X;KWX>K*>K:K>K*>K;k>KXOIC>0::K>K;K:*;fOK«^^ " 

310 PRINT 

320 PRINT "TRIP NAMES " ?N* 
330 PRINT- 
SI PRINT " DAY " ? TAB ( 8 ) ? " STOP AT " % TAB < 1 8 ) i " MILES " 5 TAB < 25 ) i " GAS * " % 
350 PRINT TAB<32)»"F0aD %" PTABC40 )? "LODGE $" ?TABC48) % "OTHER *" i 
360 PRINT TAB (56) 5 "TOTAL *" 

370 PRINT " " i TAB ( 8 ) ", " " % TAB < .1. 8 > " " > 

38 PRINT TAB ( 25 ) ? " " ', 

390 PRINT TAB < 32 ) } " " 5 TAB < 40 ) " - " i TAB C 13) " " 5 

400 PRINT TAB (56) "•■- " 

410 FOR J - 1 TO Dl 

420 X=M<J)/C*G 

430 PRINT "DAY" t J,"TABC8) 5D$( J) JTAB< 18) 5M< J) » TAB (25) iXi 

440 PRINT TAB < 32 ) J F ( ,J ) i TAB ( 40 ) I L ( J > 5 TAB < 48 ) i O < J ) ? TAB < 56 ) ? 

45 T < J ) ~X+F ( J ) +L < J ) +0 ( J ) 

460 X3-X1+X 

470 M1=M1+M<J) 

480 F1»F1+F<J> 

490 L.I."L1H..<J) 

500 01=01+0<.J) 

510 PRINT' TAB < 56 ) J T < J ) 

520 T1-T1+T<J) 

530 T< J )--••: 

540 PRINT 

550 NEXT J 

56 PRINT TAB < 1 6)5" " J TAB ( 24 ) i " " i TAB < 32 ) ', 

57 PRINT' " - — - " i TAB < 4 ) > " — " J TAB < 48 ) i " - — - » > TAB < 56 ) i 

580 PRINT " " 

590 PRINT TAB(8) t "TOTAL" n'AB(18) ?M1 J TAB<25) 5X1 H'AB(32) ?F1?TAB<40) ? 

600 PRINT L1MAB(48) ?01 5TAB<56) 5T1 

610 PRINT' 

620 REM xxxxxxxxxxxokikx PROGRAM TERMINATION POINT' wsokxokxoksokxokjk 

630 PRINT' 

640 PRINT 

650 STOP 



RUN 

ENTER THE NAME FOR THE TRIP 

? COLORADO SPRINGS 

ENTER THE MILES/GALLON YOU EXPECT TO ACHIEVE 

? 10 

ENTER THE AVERAGE COST PER GALLON YOU EXPECT TO PAY 

? .50 

ENTER THE NUMBER OF DAYS IT WILL TAKE YOU 

? 2 

FOR DAY 1 

ENTER STOPPING POINT, MILES TRAVELED 

? DENVER, 500 

ENTER YOUR COST FOR MEALS, LODGING, OTHER I.E., 75,25.50,10 

? 75,25.50,10 

FOR DAY 2 

ENTER STOPPING POINT, MILES TRAVELED 

? COLO SPRNGS.65 

ENTER YOUR COST FOR MEALS, LODGING, OTHER I.E., 75,25.50,10 

? 25,0,10 
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RESULTS OF ANALYSIS 
***************************************************** 



TRIP NAME! COLORADO SPRINGS 

DAY STOP AT MILES GAS $ 
DAY 1 DENVER 500 25 
DAY 2 COLO SPRNGS 65 3.25 



FOOD $ LODGE $ OTHER $ TOTAL * 
75 25.5 10 135.5 
25 10 38.25 



TOTAL 



28.25 



100 



20 



173.75 



BREAK IN 650 



MAJOR SYMBOL TABLE 



TRIP PLANNING 



I NAME 

I 

I D*( 



M( 

F( 

L( 

0< 

T< 

N$ 

C 

G 

Dl 

X 

XI 

Ml 

Fl 

LI 

01 

Tl 



DESCRIPTION 



ARRAY OF STOP POINTS 
ARRAY OF MILES TRAVELED 
ARRAY OF FOOD COSTS 
ARRAY OF LODGING COSTS 
ARRAY OF OTHER COSTS 
ARRAY OF TOTAL DAILY COSTS 
NAME OF TRIP 
EXPECTED MILES PER GALLON 

AVERAGE COST PER GALLON 
NUMBER OF DAYS FOR TRIP 
GASOLINE COSTS 
TOTAL GASOLINE COSTS 
TOTAL MILES 
TOTAL FOOD COSTS 
TOTAL LODGING COSTS 
TOTAL OTHER COSTS 
TOTAL COSTS 



FUNCTIONS USED 



I NAME 

.1 



.. DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 



BASIC 

— I 
I 

— I 
I 

T 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

— I 
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TRIP PLANNING - EXTENDED VERSION 

Description 

This program offers assistance in comparing various travel plans and 
routes. 

Functions of the Program 

The program accepts keyboard inputs of trip information and produces 
a table showing the itinerary and the projected costs for that trip/ 
route. Totals for each day are produced, along with overall totals for 
the trip. 

Instructions for Use 

Run the program and answer the questions asked of you. 
Data Entry 

All data is entered through the keyboard in response to the program's 
requests. 

Output Description 

See example provided. The results for each route are printed with daily 
and trip totals provided. 

Comments 

The maximum number of routes is currently set at five, and the 
maximum number of days for each is set at fifteen. These are easily 
changed by modifying lines 40-140. 



20 REM TRIP ANALYSIS PROGRAM - EXTENDED 


30 REM xchokxok*****:.* data INITIALIZATION >K^)K>f<>K)K)K>iOK30K)(<>KjK>K!K>tc 


fO DIM C<5> 




50 DIM G(5) 




60 DIM I.X5) 




70 DIM DK5) 




B0 DIM D*<5»15> 




90 DIM M (5? 15) 




100 DIM F<5ylS> 




110 DIM L(StlS) 




.1.20 DIM 0(5»I5) 




130 DIM N*<5> 




140 DIM T<15) 




150 PRINT "ENTER 


THE NUMBER OF ROUTES THAT YOU ARE CONSIDERING" 


160 INPUT R 




170 FOR I == 1 TO 


R 


ISO PRINT "FOR 


ROUTE #"?! 


190 PRINT' "ENTER THE NAME OF THIS ROUTE" 


200 INPUT N'Ji(I) 




210 PRINT "ENTE 


R THE MILES/GALLON YOU EXPECT TO ACHIEVE ON ROUTE 



tl. 
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2.ZQ INPUT CAT) 

230 PRINT "ENTER THE AVERAGE COST PER GALLON YOU EXPECT TO PAY" 

240 INPUT G<I) 

250 PRINT "ENTER THE NUMBER OF' DAYS XT WILL TAKE YOU" 

260 INPUT Dl CI) 

27 Q FOR J= 1 TO Did) 

280 PRINT "FOR DAY"? J 

290 PRINT "ENTER YOUR STOPPING DESTINATION" 

300 INPUT DUXIrJ) 

3:1.0 PRINT' "ENTER YOUR MILES TRAVELED" 

320 INPUT MCIvJ) 

330 PRINT "ENTER YOUR COST FOR MEALS" 

340 INPUT FCI'yJ) 

350 PRINT "ENTER YOUR' COST OF LODGING" 

360 INPUT L<:i."s-J) 

370 PRINT "ENTER ANY OTHER COST'S" 

380 INPUT O(IiJ) 

390 NEXT J 

't00 NEXT I 

410 REM xxa«Kxoi!)K>K*)KX)KXOK»e PRINT OF RESULTS xokxjkxoicxjkjkmcskjkxcx** 

420 PRINT 

430 PRINT 

44 PRINT " )KX<)KX)f!*)K>K)K»CX!K)KK>K)IC)K*)K)K)KXC)K!IC)t!)K}KX*XC)K*)K)K)l{X>KXC)K)K*)K**)K)K)K**)KX)KXX " 

450 PRINT " RESULTS OF ANALYSIS" 

46 PRINT " 5KXCJK*>K)IC»!*)K»C>K>K3KX>KX*»C)l!X)K*)K*)K**K*»CX**X)K«X!({)lf>KJI!!K)K!K)K*>IC*)K)t()ICJKJie)K " 

470 PRINT' 

480 FOR 1= 1 TO R 

490 PRINT "RESULT'S OF ROUTE" JI?N*<I) 

500 PRINT 

510 D< !)=€>. 1.(1) 

520 L1=0 

530 IF D1(I)<=6 THEN 570 

540 Ll-Ll+l 

550 Dl(I)=Dl(I)-6 

560 GOTO 530 

570 FOR L--0 TO Li 

580 IF L1=0 THEN 620 

590 OCX.) ==6 

600 IF l..:I.OL THEN 620 

6:1.0 D(1')=D1(I) 

620 FOR Kl»l TO D(I) 

630 K=K1+L*6 

640 PRINT TAB<K1«10+1 ) i "DAY" ?Kf 

650 NEXT Kl 

660 PRINT 

670 FOR Kl=a TO CXI) 

680 PRINT TAB < K:!.*:L ) ? " " ? 

690 NEXT K.I. 

700 PRINT 

710 PRINT "STOP AT"? 

720 FOR J1--1 TO D<I) 

730 J=J1+L*6 

740 PRINT TAB<01*lC)?D*(Ii.J) t 

750 NEXT Jl 

760 PRINT 

770 PRINT "MILEAGE"? 

730 FOR Ji==l TO D<I) 

790 J=J1+L*6 

800 PRINT TAB<Jl!Kl{i)fM(.T:i.J>? 

810 NEXT Jl 

820 PRINT 

830 FOR Jl==i TO DCD 

840 PRINT' TAB < J 1*1 0) t " " i 

850 NEXT Jl 
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860 PRINT 

87 PRINT "GAS *"? 

880 FOR Jl==l TO D(.I) 

890 J=J1+L*6 

90 X=M(I»J)/C(I)*G<I) 

910 PRINT TAB<J1*10;)?X? 

920 T<J)=T(J>+X 

930 NEXT JX 

940 PRINT 

950 PRINT "MEALS $ " 5 

960 FOR Jl==:t ID D<I) 

970 J=JI-H_*<5 

980 PRINT TAB< JDK10 ) i FCIv J) i 

990 T<J)=T<J)+F--<Ii.J) 

100 NEXT ,J1 

1010 PRINT 

1020 PRINT "LODGING !|>"J 

1030 FDR Jl=i TO D(I) 

1040 J-J1+L*6 

1050 PRINT TAB(Jl*10);L<I i .J); 

1060 T(J)=T(JJ+LCIf J) 

1070 NEXT Jl 

1080 PRINT 

1090 PRINT "OTHER $>" i 

1100 FOR J.1.-1 TO OCT) 

1110 J=Ji+L*6 

1120 PRINT TAE(,Jlw.1.0> JQ<I» J) ? 

1 1 8 T < J > =T < J ) +0 ( I v J ) 

1140 NEXT ,.;i 

1150 PRINT 

1160 FOR J 1=1 TO DC I) 

1.170 PRINT TABCJIKIO) 5 " — " f 

1180 NEXT' ,J1 

1190 PRINT 

120 PRINT "■TOTAL $"? 

1210 FOR Jl=l TO D(I> 

1220 J:=:J1+LW6 

1 23 PRINT TAB ( J 1 * .1. > i T ( J ) ? 

1240 T0==T0+T(J) 

1250 T<J)=0 

1260 NEXT Ji 

1270 PRINT 

1280 PR'INT 

1290 NEXT' L 

130 PRINT 

1310 PRINT "TOTAL COST FOR THIS ROUTE IS! "J TO 

1320 T0=0 

1330 PRINT " XXKXKXKXiKKiKXXXiKXiKXiKKXXKXiKXiOCXXX^ " 

1340 PRINT 

1350 NEXT I 

1360 REM kjkxxokhokjioichokxok* PROGRAM TERMINATION POINT wxokjohkjkxok* 

1370 PRINT' 

1380 PRINT 

1390 STOP' 



RUN 

ENTER THE NUMBER OF ROUTES THAT YOU ARE CONSIDERING 

? 2 

FOR ROUTE # 1 

ENTER THE NAME OF THIS ROUTE 

? NORTHERN 

ENTER THE MILES/GALLON YOU EXPECT TO ACHIEVE ON ROUTE 1 

? 10 
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ENTER THE AVERAGE COST PER GALLON YOU EXPECT TO PAY 

? .75 

ENTER THE NUMBER OF DAYS IT WILL TAKE YOU 

? 1 

FOR DAY 1 

ENTER YOUR STOPPING DESTINATION 

'? CITY Y 

ENTER YOUR MILES TRAVELED 

? 500 

ENTER YOUR COST FOR MEALS 

? 50 

ENTER YOUR COST OF LODGING 

? 

ENTER ANY OTHER COSTS 

? 10 

FOR ROUTE # 2 

ENTER THE NAME OF THIS ROUTE 

? SOUTHERN 

ENTER THE MILES/GALLON YOU EXPECT TO ACHIEVE ON ROUTE 2 

? 11 

ENTER THE AVERAGE COST PER GALLON YOU EXPECT TO PAY 

? .50 

ENTER THE NUMBER OF DAYS IT WILL TAKE YOU 

? 1 

FOR DAY 1 

ENTER YOUR STOPPING DESTINATION 

'? CITY Y 

ENTER YOUR MILES TRAVELED 

? 600 

ENTER YOUR COST FOR MEALS 

? 50 

ENTER YOUR COST OF LODGING 

? 

ENTER ANY OTHER COSTS 

? 25 

RESULTS OF ANALYSIS 
a**************************************************** 

RESULTS OF ROUTE 1 NORTHERN 

DAY 1 



STOP AT CITY Y 
MILEAGE 500 



GAS * 37.5 
MEALS $ 50 

LODGING $ 
OTHER * 10 



TOTAL $ 97. 



TOTAL COST FOR THIS ROUTE IS? 97.5 
***************************************************** 
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RESULTS OF ROUTE 2 SOUTHERN 
DAY 1 



STOP AT 
MILEAGE 

GAS $ 
MEALS $ 
LODGING $ 
OTHER $ 

TOTAL * 



CITY 
600 



27.2727 

50 



25 

102.273 



TOTAL COST FOR THIS ROUTE ISt 102.273 
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MAJOR SYMBOL TABLE - TRIP PLANNING 
.. DESCRIPTION 



EXTENDED 

1 



I NAME 

I 

I C< ) 
G< ) 
D< ) 
Dl< 
D*< 
M< ) 
F< ) 
L( ) 
0( ) 
N$< 
Y*< 
R 
J 
Jl 
X 
TO 



MILES PER GALLON ARRAY 

AVERAGE COST PER GALLON ARRAY 

DAY ARRAY 
) . . NUMBER OF DAYS PER ROUTE ARRAY 
) . . DAILY STOPPING POINT ARRAY 

MILES TRAVELED ARRAY 

FOOD COST ARRAY 

LODGING COST ARRAY 

OTHER COST ARRAY 
) . . ROUTE NAME ARRAY 
) . . TOTAL DAILY COST ARRAY 

NUMBER OF ROUTES 

HORIZONTAL PRINT CONTROL 

HORIZONTAL PRINT CONTROL 

GASOLINE COSTS 

TOTAL COSTS 



FUNCTIONS USED 



I 

I NAME 



.. DESCRIPTION 



I TAB 
I DIM 

I 



.. FORMATS PRINT LINES 
.. 2 DIMENSION ARRAYS 
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Recipe Conversion 74 

Meal Planning 76 

Diet Planning— Version 1 81 

Diet Planning— Version 2 87 

Categorizing Recipes— Version 1 92 

Categorizing Recipes— Version 2 95 

Freezer Inventory— Basic Version 98 
Freezer Inventory— Extended Version 101 

Supermarket List 107 
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RECIPE CONVERSION 

Description 

This program converts given quantities of recipe ingredients based upon 
the number of servings in the basic recipe to the quantities needed for 
the number of servings desired. 

Functions of the Program 

The program accepts recipe name, the number of servings in the basic 
recipe, the number of servings desired, and the individual ingredients of 
the recipe. The quantities are converted for the desired number of 
servings, and the modified recipe is printed. 

Instructions for Use 

Run the program and answer the questions asked. 

Data Entry 

All data is entered through the keyboard in response to program 
prompting. 

Output Description 

See example provided. 



20 REM RECIPE CONVERSION PROGRAM 

30 REM *************** DATA INITIATION ***************** 

40 M0=25 

50 DIM N<25> 

60 DIM T$(25) 

70 DIM D$<25> 

80 REM ********** START OF RECIPE ENTRY ******************* 

90 PRINT "ENTER RECIPE NAME" 

100 INPUT R$ 

110 PRINT "ENTER NUMBER OF SERVINGS IN RECIPE ENTERED" 

120 INPUT « 

130 PRINT "ENTER NUMBER OF SERVINGS WANTED" 

140 INPUT U 

150 PRINT-ENTER NUMBER? QTY? AND ITEM EXAMPLE 2>TSPrWATER 

160 FOR 1=1 TO MO 

170 N<I>=0 

180 INPUT N<I)»T*<I)fD*<I> 

190 IF N(I)=0 THEN 210 

200 NEXT I 

210 M0=I-1 

220 REM ************ SERVING CONVERSION AREA ************ 

230 C=W/Q 

240 FOR 1=1 TO MO 

250 N(I)=N<I)*C 

260 NEXT I 

270 REM ************* PRINT AREA ************************ 

280 PRINT 
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290 PRINT 

300 PRINT ' RECIPE - "?R$ ■ FOR ",W 

310 PRINT 

320 FOR 1 = 1 TO HO 

330 PRINT N<I),TAB<10),T*<I),TAB<20),D$<I) 

340 NEXT I 

350 REM *********** PROGRAM TERMINATION POINT 

360 PRINT 

370 PRINT 

380 STOP 



5#C 34C 34C ^C >#C 5#C )+C 5#C >4C 5iC 3#C >4C 54< 



RUN 

ENTER RECIPE NAME 

? CHEFS SPECIAL 

ENTER NUMBER OF SERVINGS IN RECIPE ENTERED 

? 2 

ENTER NUMBER OF SERVINGS WANTED 

'? A 

ENTER NUMBER* CITY, AND ITEM EXAMPLE 2, TSP, WATER 

? 2, TSP, WATER 

? 2, CUPS, FLOUR 

? .5, CUP, MILK 

? I, DASH, SALT 



RECIPE 


- CHEFS 


SPECIAL F 


4 


TSP 


WATER- 


A 


CUPS 


FLOUR 


1 


CUP 


MILK 


2 


DASH 


SALT 
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MAJOR SYMBOL TABLE 



I NAME 



RECIPE CONVERSION 

j 



DESCRIPTION 



MAXIMUM ITEMS ALLOWED I 

NUMBER OF UNITS ARRAY I 

UNITS ARRAY < I.E. TSP) I 

ITEM ARRAY <I.E. FLOUR) I 

RECIPE NAME I 

SERVINGS IN RECIPE I 

SERVINGS DESIRED I 

CONVERSION FACTOR I 

j 



I 


MO 


I 


N( ) . 


I 


T*( ) . 


I 


D*< ) . 


I 


R* 


I 


Q 


I 


W 


I 


C 







FUNCTIONS USED 



I NAME 



DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINE 
SINGLE DIMENSION ARRAY 
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1EAL PLANNING 



Description 

This program produces a menu and checklist for determining additional 
grocery items required. Grocery items are categorized for ease in 
shopping. 

Functions of the Program 

The program initializes all data items for the food categories first. 
Following this initialization, the first day's results are analyzed and 
printed, followed by each succeeding day, for all of the days included 
as data items. The last item printed is a list for shopping use. Multiple 
passes through the data entries are made to insure correct categoriza- 
tion of items. 

Instructions for Use 

Prior to running the program, the data items for each meal must be 

entered using DATA statements. 

Data Entry 

All data is entered using DATA statements. 

Data Formats 

There are three types of data entries: 

1. A master record is required for each day entered: 

* , Day name 

2. A meal record is required for each meal that gives the meal number 
of the day. The format i:;: 

N, Meal number of the day 

3. Menu item entries are entered for each item. The format is: 

Food category code, Item description 

Output Description 

See example provided. Output is in two sections: 

1. A menu for each day included in the data items. 

2. A grocery list of the items required for the menu. 

Suggested Enhancements 

You may wish to have the data entered via the keyboard rather than 
through DATA statements. To accomplish this, an array will be re- 
quired to hold the data. 
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20 REM HEAL PLANNING PROGRAM 

30 REM He************;* DATA INITIALIZATION h*************** 

40 DIM DO* (31) 

50 M0=7 

60 DIM N*<3) 

7 N* ( 1 ) =•• " BREAKFAST " 

80 N»(2)--="LUNCH" 

90 N* < 3) ■■■■■■■■" DINNER ■ 

100 DIM Dtf(7> 

110 DIM F*(7> 

120 M=100 

130 F*C:l) = "M" 

1-90 Dtf(l> = "MEAT'S" 

150 F«;(2) = "FV" 

160 D* (2)= "FRESH VEGETABLES" 

170 F*(3)="CV" 

180 Dtf (3 >= "CANNED VEGETABLES" 

190 F*(4>="FF" 

200 D$(4>="FRESH FRUITS" 

210 F*(5)="CF" 

220 D* (5)=" CANNED FRUITS" 

230 F"-li(6) = "D" 

2-40 D* (6)= "DAIRY" 

250 F$(7>="0" 

260 D* (7>- "OTHER" 

270 REM «>K**«>K«>K»)KX>i;jiCX*>KX>KS<*Jj<>K«>KK)KX>K!K>K)K>K*K**,HC>K«>k^'KJS,-K}Ka>K*:>K)lC 

280 REM JO^'jKtfwxjofx**™:**:**** PROCESSING AR'EA wxoksokxokxokxoook* 

290 FOR K = 1 TO M 

300 NO-0 

310 READ T$ 

320 IF T* = "END" THEN 50 

330 IF T!l> = **» THEN 490 

340 IF T*="N" THEN 390 

350 READ M* 

360 D0»( (Nl--l)*10+C)=Mi|i 

370 M*=" " 

330 GOTO 460 

390 READ Nl 

400 IF NK--N0 THEN 420 

410 N0=N1 

420 II- C0OC1 THEN 460 

430 Ci=€0 

440 C0=0 

450 C>=0 

460 C-C+l 

470 C0=C0+1 

430 GOTO 780 

490 READ M$ 

50 IF K-l THEN 760 

510 C=N1 

520 REM *)JHawM» MENU PRINTING jkxokjiokxokhokjiokxok 

530 PRINT 

540 PRINT' 

550 PRINT TABOO) J X* 

560 PRINT TAB<5) ?N*<1 > ?TAB(29) »N*<2> ?TAB(47) ?.W'<>0) 

570 FOR' Kl = 1 TO C 

580 PRINT TAB < (Kl-1 ) *20 ) i " I - • J 

590 NEXT Kl 

60 PRINT "I" 

610 FOR L = 1 TO CI 

620 K3---1 

630 FOR Kl==l TO C 

640 K3==<Ki-l)*10+L 

650 PRINT TAB( (Kl-1 ) *20+2) } 
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660 IF D0*(K3)~" " THEN 700 

670 PRINT D0*<K3)» 

680 DO *<l<3 )=" " 

690 GOTO 700 

70 NEXT Kl 

7.1.0 PRINT 

720 NEXT L 

730 C:l==0 

7^0 C-0 

750 C0»0 

760 IF T*-"END" THEN 790 

770 X«==M* 

780 NEXT K 

790 REM xxxxxxxxx GROCERY LIST PRINTING xxxxxxxxxxxx 

800 PRINT' 

BIO PRINT 

820 PRINT' 

830 PRINT 

8-10 PRINT "GROCERY ITEMS REQUIRED" 

B50 PRINT 

B60 PRINT 

870 FOR K = 1 TO M0 

B80 RESTORE 

890 PRINT D$<IO 

900 PRINT " — " 

910 FOR I = 1 TO M 

920 READ T* 

930 IF T*- "END" THEN 980 

9-<30 READ M* 

950 IF T$<> Ftf(K) THEN 970 

960 PRINT "< )"TAB(5> !Mtf 

970 NEXT I 

980 PRINT 

990 NEXT K 

1 REM *)K»C)KX»*)KX**)K!KXK;KX<)KK)l!)K)K*>KX)KiKXXX)K>l!)K5KJK)KX)t!)K)l(»C)l!)KXJtCX)K)l(!IC)t!)IC 

1010 REM ttxok'aoKxoosoKK PROGRAM TERMINATION POINT xxxxxxxxx 
1 020 PRINT 
1030 PRINT 
1040 STOP 

1050 REM !K«*>KX5K!K>K)K>KW>Kat*X<:*)K«>K>KX)K)K>K«*iK)K*)K!K«*>K»K^X>l<>K>K>K!K>K*>KW>K;K>K>l<>K 

1060 REM xoKaouxoKHOKXOK DATA ENTRIES FOLLOW jkmokxokxjkjkxcskjkjkjkjk 

1070 DATA JKyMON 

1080 DATA N»l 

1090 DATA My BACON 

1100 DATA FFc BANANAS 

1110 DATA Oy TOAST 

1120 DATA 0» EGGS 

1130 DATA N»3 

ll-'fO DATA My SIRLOIN STEAK 

1150 DATA Vy GREEN BEANS 

1160 DATA FV, FRENCH FRIES 

1170 DAT'A 0» CHERRY PIE 

1.1 B0 DATA xcTUES 

1190 DATA Nyl 

1200 DATA M» SAUSAGE 

1210 DATA OyPANCAKES 

1220 DATA FFy PEARS 

1280 DATA N>3 

1240 DATA MyMEATLOAF 

1250 DATA FKIt TOMATOES 

1260 DATA FVyBAKED POTATOES 

1270 DATA F'Fy PEACHES 

1-280 DATA END 
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RUN 



BREAKFAST 



MQN 
LUNCH 



DINNER 



BACON 
BANANAS 
TOAST 
EGGS 



SIRLOIN STEAK 
GREEN BEAMS 
FRENCH FRIES 
CHERRY PIE 



BREAKFAST 



TUES 
LUNCH 



DINNER 



SAUSAGE 

PANCAKES 

PEARS 



MEATLOAF 
TOMATOES 
BAKED POTATOES 
PEACHES 



GROCERY ITEMS REQUIRED 



MEATS 



( ) BACON 

< ) SIRLOIN STEAK 

< ) SAUSAGE 

( ) MEATLOAF 

FRESH VEGETABLES 

( ) FRENCH FRIES 

< ) TOMATOES 

( ) BAKED POTATOES 

CANNED VEGETABLES 



FRESH FRUITS 

( ) BANANAS 
( ) PEARS 
( ) PEACHES 

CANNED FRUIT 



DAIRY 



OTHER 

( ) TOAST 

( ) EGGS 

< ) CHERRY PIE 

( ) PANCAKES 
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MAJOR SYMBOL TABLE - MEAL PLANNING 

j 1 

I NAME ,. DESCRIPTION I 

I 1 

I DO* .. ARRAY OF INPUT ITEMS I 

I m< ) ., MEAL NAME ARRAY I 

I D*( ) .. MASTER FOOD CATEGORY ARRAY I 

I F$( > .. MASTER CATEGORY CODE ARRAY I 

I M .. MAXIMUM NUMBER OF DATA READS I 

I T$ . . TRANSACTION CODE I 

I M$ . . TRANSACTION ITEM/DAY I 

I C .. COUNTER I 

I Nl . . MEAL NUMBER IN DAY I 

I 1 

FUNCTIONS USED 

I 1 

I NAME .. DESCRIPTION I 

! 1 

I TAB .. FORMATS PRINT LINES I 

I DIM .. SINGLE DIMENSION ARRAY I 

j 1 
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DIET PLANNING - VERSION 1 



Description 

This program produces a menu, complete with calorie values, calories 
per meal, and total calories per day. After printing the menu, it pro- 
duces a list of all food items scheduled for each of several major food 
groups. 

Functions of the Program 

The program initializes the food group categories first. Following this, 
menus are printed, calorie counts produced, and daily totals are printed. 
The last task of the program is the printing of the food group lists. It 
does so by rereading the data items for each major food group. 

Instructions for Use 

Prior to running the program, the menu items must be entered using 
DATA statements. 

Data Entry 

All data is entered using DATA statements. 

Data Formats 

There are three types of data entries: 

1. A master card is required for each day. Its format is: 

*, Day name 

2. A meal number entry is required for each meal of the day: 

N, Meal number of the day 

3. Menu items are entered for each item. The format is: 

Food category code, Item description, Calories 

Output Description 

See example provided. Output is in two sections: 

1. A menu for each day entered in the DATA statements is pro- 
duced. 

2, A list of foods, scheduled by major food groups, is printed. 

Suggested Enhancements 

You may wish to have the data entered through the keyboard rather 
than through DATA statements. To accomplish this, an array will be 
required to hold the items entered. 
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20 REM DIET' PLANNING PROGRAM BASIC 

30 REM JssoKaoKJifxcxxaoKaxxoK DATA INITIALIZATION xxxxxxxxxxx 

40 DIM DO* (31) 

51) DIM A0<31> 

60 M0-9 

70 DIM N*<3) 

80 N* < 1 ) = " BREAKFAST " 

90 Nil. (2) = "LUNCH" 

.1.0 N* (3) --"DINNER" 

110 DIM D*<.'9> 

120 DIM F*(9> 

130 M=100 

.1.40 F*(1) = "M" 

150 D*(l>= "MEATS" 

160 F*C2>="FV" 

170 D* (2 )= "FRUIT/VEGETABLES " 

180 F*(3>="BC" 

1 9 D* ( 3 ) = " BREADS/CEREALS ' 

20 F*C4)="B" 

210 D*< 4)= "BEVERAGES" 

220 F*(5)="S" 

230 D* (5)= "SOUPS" 

240 F*(A>="SD" 

25 D* ( 6 > = " SWEETS/DESSERTS " 

260 F*(7)="F" 

270 D* (7)= "FATS" 

280 F*C8>="D" 

290 D*<8>=" DAIRY" 

30 F*(9>-~"0" 

310 D* (9)= "OTHER" 

320 FOR I - 1 TO 31 

330 DO* <!')==" " 

340 NEXT I 

35 REM )K)K)KXC>Ka<JKi«JltXJK)K)i:)K)KX)f:)K)KK)f(»C3«*)(CX3K)K>KX)KJtC>l!)K3K)K)l()K)K*)KX*XOICXOt!»Ot! 

360 REM w*>K)K>K>KX'».;*csoKX»;*:>K«ji; PROCESSING AREA wsoKX^HOicxoKaoK 

370 FOR K ■- 1 T'O M 

380 N0=0 

390 READ T* 

400 IF T* = "END" THEN 6.10 

410 IF T*-"*" THEN 60 

420 IF T*="N" THEN 480 

430 READ M*s>A 

440 D0*< (N1-1)*10+C)~M* 

450 A C < N 1 - 1 > * 1 +C ) •--■■ A 

460 M$~" " 

470 GOTO 550 

480 READ Nl 

490 IF NK-N0 THEN 510 

500 N0=N1 

5.1.0 IF C0<=C1 THEN 550 

520 C1=C0 

530 C0==0 

540 C=0 

550 C=C+i 

560 C0-C0 +1 

570 D0*< (N1--1)*10+C)=M'£ 

580 A0( <Nl-l)wi0+C)=A 

590 GOTO .1.020 

600 READ M* 

610 IF K~l THEN 100 

620 C=Ni 

630 REM aoiciioKXOKiiGKjfOKJioKxc MENU PRINTING jkxcxxokhokjkxxjkx 

640 PRINT 

650 PRINT 

82 BASIC Computer Programs for the Home 



660 PRINT TAB < 30 ) i X* 

670 PRINT TAB<5> >M><1 ) ?TABC29) ?N*<2) HABC47) ?N$<3) 

680 FOR ICl = 1 TO C 

690 PRINT TAE<CKl-i?«20)f "I •; 

700 NEXT K.1. 

710 PRINT "I" 

720 FOR L = 1 TO CI 

730 K3=l 

7<U) FOR Kl==l TO C 

750 K3==<Kl--imo+L 

760 PRINT TAB( <K1~1 )«20+2) i 

770 IF DO* (K3 )=■-•" » THEN 830 

780 PRINT D0i|i<K3>JA0CK3)? 

790 TO CKl )=T0 <K1 >+A0 <K3> 

80 D0il><K3> = " " 

8.1.0 A0(K3>-0 

820 GOTO 830 

830 NEXT Kl 

8-90 PRINT 

850 NEXT L 

860 FOR Kl~l TO C 

870 PRIN T TAB < 2 * ( K 1 - 1 ) + 4 ) } » CALORIE'S " ', TAB < 1 5*K 1) ? T < K 1 ) 5 

880 T1=T1+T0(K1) 

890 T0(K1)~0 

900 NEXT Kl 

910 PRINT 

920 PRINT 

930 PRINT "xauKxotciOKxoKaoKifOKifoicKKiocK" 

9-90 PRINT "DAILY TOTAL IS " ?T1 » 

950 PRINT ">KX>K*>KX»X<«;K»>KX>KX«>K;fOK)K" 

960 C.t=0 

970 Ti=0 

980 C=0 

990 C0=0 

1000 IF T$="END" THEN 1030 

1010 X*=M* 

1020 NEXT l< 

1030 REM ^xoKJKKxoex ANALYSIS BY FOOD TYPE aou*********: 

1040 PRINT 

1050 PRINT 

1060 PRINT 

1070 PRINT 

1080 PRINT "FOODS PLANNED BY GROUP'" 

1090 PRINT 

110 PRINT 

1110 FOR K = 1 TO M0 

1120 RESTORE 

1130 PRINT D$<IO 

1 14 PRINT " - » 

1150 FOR I = 1 TO M 

1160 READ T$ 

1170 IF T*="N" THEN 1240 

1180 IF r$="*» 'THEN 1240 

1190 IF T*=="END" THEN 1260 

120 READ M*cA 

1210 IF T*-C F$(K) THEN 1250 

1220 PRINT "( )"TABC5)fM*5A 

1230 GOTO 1250 

1240 READ M* 

1250 NEXT I 

1260 PRINT 

1270 NEXT' K 

.1.280 REM xxkxxxmxxxxxxxxxxxxxxxxxxxixxxxxx^ 

.1.290 REM kxokjiokxokjiok PROGRAM TERMINATION POINT Hex****** 
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130 


PRIN" 1 




1310 


PRINT 


1320 


STOP 




1330 


REM 


!l<W«)KK>K»<)k'X»K>KXK;K»K«»C>K«>KX>KX>KK>KK>KKX«)K>i<)K*»!K)KX>K»<>Ka<«X>iC)KJK)f< 


1340 


REM 


xoxxxxwAOtCAOK DATA ENTRIES FOLLOW xjiokjooiokjiokjiokxoic 


1350 


DATA 


*, MON 


1360 


DATA 


N»l 


1370 


DATA 


M>EACON?60 


1380 


DATA 


By ORANGE JUICE r 60 


1390 


DATA 


FVk BANANAS? 85 


140 


DATA 


BC* TOAST* 70 


1410 


DATA 


Fy MARGARINE y 25 


1420 


DATA 


M?S0FT BOILED EGG > 80 


1430 


DATA 


N»3 


1440 


DATA 


M y SIRLOIN STEAK » 33 


1450 


DATA 


DyGLASS MILKy.1.60 


1460 


DATA 


FY? GREEN BEANS , 15 


1470 


DATA 


FY* FRENCH FRIES y 21 5 


1480 


DATA 


SDc CHERRY PIE , 310 


1490 


DATA 


IKyTUES 


1500 


DATA 


Ny.l. 


1510 


DATA 


My SAUSAGE y 250 


1520 


DATA 


BCr PANCAKES y 60 


1530 


DATA 


SDy SYRUP t 55 


1540 


DATA 


FV y PEAR y 10 


1550 


DATA 


Ny3 


1560 


DATA 


M y BROILED SALMON , 1 55 


1570 


DATA 


FVy TOMATOES y 20 


1580 


DATA 


FV > BAKED POTATO y 1 45 


1590 


DATA 


FMyl PEACHySO 


1610 


DATA 


END 



RUN 



BREAKFAST 

:I 1- 

BACON 60 

ORANGE JUICE 60 

BANANAS 85 

TOAST 70 

MARGARINE 25 

SOFT BOILED EGG 80 



MON 
LUNCH 



DINNER 

.j 1 

SIRLOIN STEAK 330 
GLASS MILK 160 
GREEN BEANS 15 
FRENCH FRIES 215 
CHERRY PIE 310 



CALORIES 



380 



CALORIES 



CALORIES 1030 



DAILY TOTAL IS 1410 



BREAKFAST 



TUES 
LUNCH 



DINNER 



SAUSAGE 250 
PANCAKES 60 
SYRUP 55 
PEAR 100 



BROILED SALMON 155 
TOMATOES 20 
BAKED POTATO 145 
1 PEACH 30 



CALORIES 



46S 



CALORIES 



CALORIES 350 
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******************** 
DAILY TOTAL IS 815 
******************** 



FOODS PLANNED BY GROUP 



MEATS 



< > 
( ) 
( ) 



BACON 60 

SOFT BOILED EGG 80 
SIRLOIN STEAK 330 
SAUSAGE 250 
BROILED SALMON 155 



FRUIT/VEGETABLES 

( > BANANAS 85 

< ) GREEN BEANS 15 

( ) FRENCH FRIES 215 

< ) PEAR 100 

( ) TOMATOES 20 

< ) BAKED POTATO 145 
( ) 1 PEACH 30 



BREADS/CEREALS 



) TOAST 70 
) PANCAKES 



60 



FATS 

( > MARGARINE 25 

BEVERAGES 

< ) ORANGE JUICE 60 

SOUPS 

SWEETS/DESSERTS 

( ) CHERRY PIE 310 

< ) SYRUP 55 

DAIRY 

< ) GLASS MILK 160 

OTHER 
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BREAK IN 1320 



MAJOR SYMBOL TABLE - DIET PLANNING 
,. DESCRIPTION 



VERSION 1 



I NAME 

I 



D0$< 

A0$< 

N$( 

D$< 

F$< 

T$ 

M* 

A 

Ni 

C 

CI 

Tl 



INPUT ITEM ARRAY 

ARRAY OF INPUT CALORIES 

ARRAY OF MEAL NAMES 

ARRAY OF MASTER CATEGORY CODES 

ARRAY OF MASTER CATEGORY DESCRIPTIONS 

TRANSACTION CODE 

TRANSACTION ITEM 

TRANSACTION CALORIES 

MEAL NUMBER 

COUNTER 

COUNTER 

TOTAL DAILY CALORIES 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 
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DIET PLANNING - VERSION 2 

Description 

This program for diet planning deals with fixed diet requirements and 
produces a menu selection list based upon the diet's requirements. 

Functions of the Program 

This program differs substantially from the other version of diet plan- 
ning provided in this book. The program reads the data items; determines 
whether the item is a member of a group or subgroup of foods and 
whether it is optional or required; and then prints the item accordingly. 
The processing of the various groups/subgroups is accomplished in sep- 
arate routines for ease of understanding or for modification, if desired. 

Instructions for Use 

Provide the data items for the diet prior to running the program for the 
first time. 

Data Entry 

All data is entered using DATA statements. 

Data Formats 

Several types of data formats are available for your use, as follows: 

1. A master item is required for each meal. Its format is: 

*, Meal name 

2. Group choices are provided by an entry of the following form: 

G, Number of choices (choices must follow immediately) 

3 . Subgroup items are indicated by the following: 

S, Number of optional choices (choices must follow immediately) 

4. Required items are indicated by the following: 

R, Required item name 

5. Choices for the optional entries are provided in Englishlike form, 
without any transaction code. 

Note the END data item. 

Output Description 

See example provided. A separate column for each day is printed for 
use in menu selection. 

Suggested Enhancements 

You may wish to extend the program to accept the individual's menu 
choices and compare them against the selection criteria. Following a 
check for accuracy, the menu may be printed. 
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20 REM DIET PLANNING PROGRAM 2 

30 REM ************** DATA INITIALIZATION ******************** 

40 M=1000 

50 C=l 

60 S1=0 

70 PRINT "HOW MANY DAYS SHALL I PRINT?" 

80 INPUT N 
90 PRINT 

110 REM **************** PROCESSING AREA ************************ 

120 FOR I = 1 TO M 

130 READ T$ 

140 IF T$="END" THEN 730 

150 IF T*=**" THEN 300 

160 IF T$=*G" THEN 470 

170 IF T$="S" THEN 530 

180 IF T*="R" THEN 610 

190 IF S1>0 THEN 230 

200 PRINT TAB<10> ?C* " - "ST*5 

210 C=C+1 

220 GOTO 250 

230 PRINT TAB(13)fSlf'- "5T*J 

240 S1=S1+1 

250 FOR K=l TO N 

260 PRINT TAB<K*3+46)> "< >"S 

270 NEXT K 

280 PRINT 

290 GOTO 710 

300 REM ******** PROCESS NEW MEAL ****************** 

310 PRINT 

320 PRINT •************><***********************************# ' 

330 FOR K=l TO N 

340 PRINT TAB(K*3+46> ?"***" i 

350 NEXT K 

360 PRINT 

370 READ M$ 

380 PRINT TAB(10)5M$TAB<50>f "DAY" 

390 PRINT »************:K*****************************#*"' 

400 FOR K = 1 TO N 

410 PRINT TAB(K*3+46> SK» 

420 NEXT K 

430 PRINT 

440 S1=0 

450 C=l 

460 GOTO 710 

470 REM ********** PROCESS NEW GROUP ************* 

480 PRINT 

490 READ GO 

500 PRINT "CHOOSE" J GO ', "OF THE FOLLOWING}" 

510 S1=0 

520 GOTO 710 

530 REM ************** SUB GROUP PROCESSING ************* 

540 S1=0 

550 PRINT 

560 READ SO 

570 S1=S1+1 

580 PRINT TABOO) ?C5°- ANY"*S05" OF THE FOLLOWING:" 

590 C=C + 1 

600 GOTO 710 

610 REM ************** REQUIRED ITEMS ************* 

620 PRINT 
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630 READ R$ 

640 C=l 

650 Si=0 

660 PRINT "REQUIRED °?R$? 

670 FOR K=l TO N 

680 PRINT TAB(K*3+46)?'<X)°? 

690 NEXT K 

700 PRINT 

710 NEXT I 

720 REM i***************************************************** 

730 REM ***************** PROGRAM TERMINATION POINT ******* 

740 PRINT 

750 PRINT 

760 STOP 

770 rem WW************************************************ 

780 REM **************** data ENTRIES FOLLOW ********* 

790 DATA *, BREAKFAST 

800 DATA G,l 

810 DATA SOFT BOILED EGG 

820 DATA POACHED EGG 

830 DATA S,2 

840 DATA ORANGE JUICE 

850 DATA FRESH ORANGE 

860 DATA GRAPEFRUIT 

870 DATA GRAPEFRUIT JUICE 

880 DATA G,l 

890 DATA 1 SLICE BACON 

900 DATA 2 LINKS SAUSAGE 

910 DATA G,l 

920 DATA TOAST 

930 DATA MUFFIN 

940 DATA *, LUNCH 

950 DATA R,2 SLICES BREAD 

960 DATA G,l 

970 DATA 1 SLICE BOLOGNA 

980 DATA 2 SLICES TURKEY 

990 DATA G,l 

1000 DATA BUTTER 

1010 DATA MARGARINE 

1020 DATA MAYONAISE 

1030 DATA R,MILK 

1040 DATA *, DINNER 

1050 DATA G,2 

1060 DATA APPLE, PEACH* PEAR GRANGE JUICE, GRAPEFRUIT JUICE 

1070 DATA S»2 

1080 DATA LETTUCE, TOMATO, GREEN PEPPERS 

1090 DATA S,l 

1100 DATA BUTTER 

1110 DATA MARGARINE, SALAD DRESSING 

1120 DATA G,l 

1130 DATA 4 OZ BEEF 

1140 DATA 4 OZ HAM 

1150 DATA 6 OZ BROILED CHICKEN 

1160 DATA END 



RUN 

HOW MANY DAYS SHALL I PRINT? 
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BREAKFAST DAY 



1 2 



CHOOSE 1 OF THE FOLLOWING) 

1 - SOFT BOILED EGG ( )< ) 

2 - POACHED EGCi < >< ) 

3 - ANY 2 OF THE FOLLOWING? 

1 - ORANGE JUICE ( )< ) 

2 - FRESH ORANGE < X > 

3 - GRAPEFRUIT < >< > 

4 - GRAPEFRUIT JUICE < )( ) 

CHOOSE 1 OF THE FOLLOWING!: 

4 - 1 SLICE BACON < )< ) 
5-2 LINKS SAUSAGE ( )( ) 

CHOOSE 1 OF THE FOLLOWING:: 

6 - TOAST < )< ) 

7 - MUFFIN < )< ) 

LUNCH DAY 

#*##*#**#***#***#********«**#***#*****##**** 1 2 

REQUIRED 2 SLICES BREAD <XXX) 

CHOOSE 1 OF THE FOLLOWING:: 

1-1 SLICE BOLOGNA < >< > 

2-2 SLICES TURKEY < X ) 

CHOOSE 1 OF THE FOLLOWING:; 

3 - BUTTER ( )< ) 

4 - MARGARINE < X > 

5 - MAYONAISE < X > 

REQUIRED MILK (XXX) 

DINNER DAY 

######*#!W#;{<#>TO.'#*###>W*#:K*####*W*#**#*##*# 1 2 

CHOOSE 2 OF THE FOLLOWING! 

1 - APPLE ( X ) 

2 - PEACH < ) ( ) 

3 - PEAR < X ) 

4 - ORANGE JUICE < X ) 

5 - GRAPEFRUIT JUICE < X > 

6 - ANY 2 OF THE FOLLOWING} 

1 - LETTUCE < X > 

2 - TOMATO ( X ) 

3 - GREEN PEPPERS ( X ) 

7 - ANY 1 OF THE FOLLOWING.? 

1 - BUTTER < X ) 

2 - MARGARINE ( X ) 

3 - SALAD DRESSING < >< > 

CHOOSE 1 OF THE FOLLOWING? 

8 - 4 OZ BEEF ( X ) 

9 - 4 OZ HAH ( X ) 

10 - 6 OZ BROILED CHICKEN ( X ) 
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MAJOR SYMBOL TABLE - DIET PLANNING - VERSION 2 



I NAME 



DESCRIPTION 



MAXIMUM NUMBER OF DATA READS 
NUMBER OF DAYS TO PRINT 
TRANSACTION TYPE 
ITEM COUNTER 

NUMBER OF GROUP ITEMS TO SELECT 
NUMBER OF SUBGROUP ITEMS TO SELECT 
DESCRIPTION OF REQUIRED ITEM 
MEAL NAME 



I 


M 


I 


N 


I 


T* 


I 


C 


I 


GO 


I 


SO 


I 


R$ 


I 


m 







FUNCTIONS USED 



I NAME 



DESCRIPTION 



I TAB 

I 



.. FORMATS PRINT LINES 
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CATEGORIZING RECIPES -VERSION 1 

Description 

This simple program allows the cook to categorize favorite recipes and 

locate them instantly with the help of the computer. 

Functions of the Program 

The program accepts the recipe code to search for and then locates all 
recipes categorized with that code. The recipe name is printed, along 
with its location and page number. 

Instructions for Use 

Recipes must be entered prior to running the program. 

Data Entry 

All data is entered using DATA statements. 

Data Format 

The format of the DATA statement is: 

Recipe code, Recipe name, Location, Page number 

Output Description 

See example provided. All :recipes with a code that matches the selec- 
tion criteria will be printed, or all entries can be printed, if desired. 



20 REM RECIPE LOCATING PROGRAM - BASIC 

30 REM xoKXOKJtoKSOKitoooic DATA INITIALIZATION xxxxxokxmxxxxxoxx 

40 M=10 00 

50 PRINT "SHALL. I PRINT ALL ENTRIES C Y OR N )?" 

60 INPUT A* 

70 PRINT 

80 IF A* ="Y" THEN .1.60 

90 PRINT "ENTER THE RECIPE CODE TO FIND" 

10 INPUT X* 

HO PRINT 

3.20 PRINT 

130 PRINT 

110 PRINT" 

150 PRINT X* 

1.60 PRINT TAB<:!.0> "RECIPE" 5 TABOO J » "LOCATION" ri'AB< 50 ) ? "PAGE NBR" 

1 7 PRINT TAB < 1 ) " " i TAB (30)?" " t TAB (50)?" - " 

1B0 PRINT' 

190 REM xisoKsoioioooKaoKKOK*: PROCESSING AREA w>K>K>KSOKa<>KXOt!.-K>K*>s*.>o<x* 

200 FOR I = 1 TO M 

210 READ C* 

220 IF C*="END" THEN 30 

230 READ RfcyLilieP* 

2-10 IF A* <> "Y" THEN 270 

250 PRINT C*;TABCI.0)R*?TAB(30) »L*JTAB<50> 5P* 
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PROGRAM TERMINATION POINT xxxxxxx 



260 GOTO 290 

270 IF DIK>X!|; THEN 290 

280 PRINT TAB < .1. >R*? TAB < 30 ) > Ltf r TAB < 50 ) J P* 

290 NEXT I 

3 REMXIKXilOKXaKXOKXaKJfOKiOCIOK 

3:1.0 PRINT 

320 PRINT 

330 STOP 

3-10 REM xxxxxnoKxxxQiixxxx DATA ENTRIES' 

350 DATA EGGS y EGGS BENEDICT, COOKBOOK 1,PG 

360 DATA EGGS » POACHED EGGS , COOKBOOK 2, PG 

370 DATA EGGS , FRIED.. COOKBOOK 3vPG 13 

380 DATA STEAK ..BROILED STEAK,. COOKBOOK 2yPG 16 

390 DATA LAMB*. LAMB CHOPS , COOKBOOK 1, PG J -18 

40 DATA EGGS, HARD BOILED , COOKBOOK lypG \6 

410 DATA EGGS » HARD BOILED.. COOKBOOK '*y PG ?--13 

420 DATA STEAK, SALISBURY STEAK, COOKBOOK 2,PG 16 

430 DATA END 



POLL 
20 
178 



OW 



JKJfOKMOK.HOKJiOK* 



RUN 

SHALL I PRINT ALL ENTRIES ( V OR N >? 
? Y 





RECIPE 


LOCATION 




EGGS 


EGGS BENEDICT 


COOKBOOK- 


1 


EGGS 


POACHED EGGS 


COOKBOOK 


2 


EGGS 


FRIED 


COOKBOOK 


3 


STEAK 


BROILED STEAK- 


COOKBOOK 


2 


LAMB 


LAMB CHOPS 


COOKBOOK- 


4 


EGGS 


HARD BOILED 


COOKBOOK 


1 


EGGS 


HARD BOILED 


COOKBOOK 


4 


STEAK 


SALISBURY STEAK- 


COOKBOOK 


2 



PAGE NBR 


PG 


200 


PG 


178 


PG 


13 


PG 


16 


PG 


1-18 


PG 


16 


PG 


2-13 


PG 


16 



BREAK IN 330 



RUN 



SHALL I PRINT ALL ENTRIES ( Y OR N >? 
? N 



ENTER THE RECIPE CODE TO FIND 
'? STEAK- 



STEAK 



RECIPE 



LOCATION 



PAGE NBR 



BROILED STEAK 
SALISBURY STEAK- 



COOKBOOK 2 
COOKBOOK 2 



PG 16 
PG 16 



BREAK IN 330 
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MAJOR SYMBOL TABLE - RECIPE - VERSION 1 



I- 



-I 



I NAME . . DESCRIPTION I 

!__• 1 

I M .. MAXIMUM NUMBER OF DATA READS I 
IX* . . RECIPE CODE TO SELECT I 

I R* .. RECIPE NAME I 

I L* .. LOCATION I 

IP* .. PAGE LOCATION I 

I C$ .. TRANSACTION CODE I 

z 1 

FUNCTIONS USED 

j 1 

I NAME . . DESCRIPTION I 

X 1 

I TAB ♦. FORMATS PRINT LINES I 

! 1 
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CATEGORIZING RECIPES - VERSION 2 

Description 

This recipe program is provided for those who wish to recall their 
favorite recipes with the push of a button. The recipes are entered as 
data to the program and then are printed upon request. 

Functions of the Program 

The program allows both the printing of all recipe names available and 
the printing of individual recipes, complete with instructions and 
ingredients. 

Instructions for Use 

All recipe items must be entered prior to running the program. 

Data Entry 

All data is entered using DATA statements. 

Data Formats 

Data is entered in two formats: 

1. The master record for each recipe has the following form: 

*, Recipe code, Recipe name 

2. Recipe instructions are entered in Englishlike form, without special 
coding. 

Note the END record. 
Output Description 

See example provided. Output can be either a condensed list for review 
purposes or a detailed printout of the selected recipe. 

Suggested Enhancements 

This application is ideal for conversion to disk or tape data file storage. 



20 REM RECIPE FILE PROGRAM - BASIC 

30 REM ************** DATA INITIALIZATION ******************* 

40 M=10000 

50 REM ************ BEGIN PROCESSING ********************** 

60 PRINT "WOULD YOU LIKE TO SEE A LIST OF ALL RECIPES <Y OR N>?" 

70 INPUT A* 

80 PRINT 

90 PRINT 

100 IF A*<>"Y" THEN 260 

110 PRINT "CATEGORY RECIPE" 

120 PRINT " . 

130 FOR I = 1 TO M 
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140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 



READ CI* 

IF CI* ="END" THEN 200 

IF CIS <>•*■ THEN 190 

READ C2*»R* 

PRINT C2*5TAB(15)5R« 
NEXT I 
RESTORE 
PRINT 
PRINT 
PRINT 
INPUT A* 
IF A*="N 
PRINT 



WOULD YOU LIKE TO SEE ANY RECIPES < Y OR N)?' 



' THEN 480 
SHALL I PRINT ALL OF THE ENTRIES <Y OR N>?' 



INPUT A* 

IF A* ="Y" THEN 310 

PRINT "ENTER THE RECIPE TO SEARCH FOR ■ 

INPUT X* 

REM ******* MAJOR PROCESSING LOOP *************** 

FOR I = 1 TO M 

READ CI* 

IF C1$="END" THEN 430 

IF CI* <> "*" THEN 450 

PRINT 

S=0 

READ C2*?R* 

IF A$=*Y" THEN 410 

IF R* <> X* THEN 470 

S=l 

PRINT C2*?TAB(15)?R* 

PRINT TAB (7) ' 

GOTO 470 

IF SOI THEN 470 

PRINT TAB(7)?C1* 
NEXT I 
REM ********* PROGRAM TERMINATION POINT 

PRINT 
PRINT 
STOP 
REM 



************ DATA ENTRIES FOLLOW 
DATA *,EGGS»EGGS BENEDICT 
DATA THESE ARE THE INSTRUCTIONS FOR 
DATA EGGS BENEDICT. IT INCLUDES ANYTHING 
DATA DESIRED AS LONG AS THERE ARE NO COMMAS. 
DATA *,EGGS»FRIEO 

DATA INSTRUCTION 1 FOR FRIED EGGS 
DATA INSTRUCTION 2 FOR FRIED EGGS 
DATA *? STEAK* BROILED STEAK 
DATA INSTRUCTION 1 FOR STEAK- 
DATA INSTRUCTION 2 FOR STEAK 
DATA **EGGS*HARD BOILED 

DATA INSTRUCTION 1 FOR HARDBOILED EGGS 
DATA INSTRUCTION 2 
DATA *» STEAK .PAN-FRIED 
DATA INSTRUCTION 1 
DATA END 



************** 



******************** 
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RUN 

WOULD YOU LIKE TO SEE A LIST OF ALL RECIPES (Y OR N>? 



CATEGORY 


RECIPE 


EGGS 

EGGS 

STEAK 

EGGS 

STEAK- 


EGGS BENEDICT 
FRIED 

BROILED STEAK 
HARD BOILED 
PAN-FRIED 



WOULD YOU LIKE TO SEE ANY RECIPES < Y OR N>"? 
? Y 

SHALL I PRINT ALL OF THE ENTRIES <Y OR N>? 

? N 

ENTER THE RECIPE TO SEARCH FOR 

? BROILED STEAK- 



STEAK 



BROILED STEAK- 



INSTRUCTION 1 FOR STEAK 
INSTRUCTION 2 FOR STEAK 
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MAJOR SYMBOL TABLE - RECIPE - VERSION 2 



I NAME 



.. DESCRIPTION 



M 

Cl$ 

C2$ 

R* 



MAXIMUM NUMBER OF DATA READS 

TRANSACTION CODE/INSTRUCTION 

RECIPE CODE 

RECIPE NAME 

RECIPE TO SEARCH FOR 



FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



I TAB 

I 



.. FORMATS PRINT LINES 
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FREEZER INVENTORY - BASIC VERSION 

Description 

This program allows you to maintain and control an inventory of all 
items in your freezer. Either a full list of the freezer's contents or a list 
of all items of a selected type can be printed when desired. 

Functions of the Program 

The program initializes the entries based upon keyboard inputs and 
then prints the requested items. 

Instructions for Use 

Freezer inventory items must be given an item number and entered as 
data to the program prior to running it. Items used should be recorded 
and deleted from the data list at the time of use to insure the continued 
accuracy of your inventory. 

Data Entry 

Data is entered using DATA statements. 

Data Format 

A single data format is used by the program. It is recommended that 
the data items be entered in item number order. The format is: 
Item code, Description, Item number, 
Month, Year item was placed in freezer, Months of freezer life 
Note the END record. 

Output Description 

See example provided. Two forms of output are available: 

1. A list of the current contents (all entries). 

2. A list of all items of a specified type. 

Suggested Enhancements 

The possibility of disk or tape-file storage and update of the inventory 
items should be considered for ease of use. 



20 REM FREEZER INVENTORY PROGRAM 

30 REM ************ DATA INITIALIZATION ******************** 

40 M=1000 

50 PRINT "ENTER THE DATE ( MONTH!. DAY , YEAR > I . E . t JUL r 15 » 1979 

60 INPUT C1*»C2»C3 

70 PRINT "SHALL I PRINT ALL ENTRIES < Y OR N >?" 

80 INPUT A$ 

90 PRINT 
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:loo 
no 

120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
311 
312 
313 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 



IF A* = "Y" THEN 140 

PRINT "ENTER THE ITEM CODE TO FIND 

INF :, UT X$ 

PRINT 

PRINT 

PRINT 

PRINT TAB<20) i "TODAY'S DATE? ■JC1*JC25C3 

PRINT 

PRINT "ITEM CODE" ?TAB<15) * * ITEM" 5TAB<35> S "NBR" JTAB<42) ? "DATE IN" 5 

PRINT TAB < 55) i "MTHS" 

PRINT " " !TAB(15) 5 " " JTAB<35) J " " STABC42) ', 

PRINT " " ?TAB<55) ? " ' 

PRINT 

REM ************** PROCESSING AREA ********************* 

FOR I = 1 TO M 

READ 11$ 

IF I1$="END" THEN 340 

READ I2$,N,D1$,D2,T 

IF A$ <> "Y" THEN 310 

PRINT I1$PTAB<15> 5 12*5 TAB (34) JN?TAB<42) 5D1$ 5D25 TAB (55 ) ', T 

GOTO 330 

IF Il$OX$ THEN 330 

C=C+1 

IF D=l THEN 320 

11$=" " 

PRINT 1 1 * ST AB ( 1 5 ) ', 12$ ? TAB ( 34 ) ', N 5 TAB ( 42 ) ', Dl $ i D2 ', TAB < 55 ) 5 T 
NEXT I 

REM***************** PROGRAM TERMINATION POINT ************ 
PRINT 
PRINT 
STOP 

REM *************** DATA ENTRIES FOLLOW 
DATA BEEF, ROUND STEAK* 100, JAN? 1979, 18 
DATA PORK , ROAST ,101, JAN , 1 979 , 9 
CAT A BEEF , HAMBURGER ,103, FEB , 1 979 , 1 8 
DATA PORK , CHOPS , 104 , FEB ,1979 , 9 
DATA PORK , BACON , 105, MAR , 1979, 18 
DATA VEG,C0RN,106,JUN,1979,18 
DATA LAMB , CHOPS ,107, AUG ,1979,6 
DATA PORK , BACON ,108, DEC , 1979 , 6 
DATA BEEF, SIRLOIN STEAK, 109 , JAN, 1979, 18 
DATA BEEF , HAMBURGER ,110, FEB , 1 979 , 1 8 
DATA END 



#)K$! 1 K$$$$$' | K$##&JK# 



RUN 

ENTER THE DATE < MONTH , DAY , YEAR) I.E., JUL, 15, 1979 

•? DEC, 1,1 980 

SHALL I PRINT ALL ENTRIES ( Y OR N )? 

? Y 

TODAY'S DATEt DEC 1 1980 



ITEM CODE 


ITEM 

ROUND STEAK 


NBR 
100 


DATE IN 


MTH 


BEEF 


JAN 


1979 


18 


PORK 


ROAST 


101 


JAN 


1979 


9 


BEEF 


HAMBURGER 


103 


FEB 


1979 


18 


PORK 


CHOPS 


104 


FEB 


1979 


9 


PORK 


BACON 


105 


MAR 


1979 


18 


VEG 


CORN 


106 


JUN 


1979 


18 


LAMB 


CHOPS 


107 


AUG 


1979 


6 


PORK- 


BACON 


108 


DEC 


1979 


*{> 


BEEF 


SIRLOIN STEAK 


109 


JAN 


1979 


18 


BEEF 


HAMBURGER 


1.10 


FEB 


1979 


18 
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BREAK IN 370 



RUN 

ENTER THE HATE < MONTH* DAY > YEAR) I.E.* JUL*15*1979 

? DEC* 1*1980 

SHALL I PRINT ALL ENTRIES ( Y OR N )? 

? N 

ENTER THE ITEM CODE TO FIND 
y BEEF 



ITEM CODE 



BEEF 



TODAY'S DATE: DEC 1 1980 
ITEM NBR DATE IN 



round ste:ak 
HAMBURGER 
SIRLOIN STEAK' 
HAMBURGER 



100 


JAN 


1979 


103 


FEB 


1979 


109 


JAN 


1979 


110 


FEB 


1979 



MTHS 



18 
18 
18 
18 



BREAK IN 370 





MAJOR 


SYMBOL TABLE - FREEZER LIST - BAS 


IC 


I 


NAME 


•• 


DESCRIPTION 


I 












I 


M 


t « 


MAXIMUM NUMBER OF DATA READS 


I 


I 


Cl$ 




« 


CURRENT MONTH 


I 


I 


C2 




, 


CURRENT DAY 


I 


I 


C3 




« 


CURRENT YEAR 


I 


I 


X$ 




* 


TRANSACTION CODE TO LOCATE 


I 


I 


12$ 




» 


ITEM 


I 


I 


N 




9 


NUMBER OF ITEM 


I 


I 


Dl* 




» 


DATE INTO FREEZER-MONTH 


I 


I 


D2 




, 


DATE INTO FREEZER-YEAR 


I 


I 


T 




« 


MONTHS OF FREEZER LIFE 


I 


I 


11$ 




» 


TRANSACTION CODE 


I 


I 


C 




« 


COUNTER 


I 
























FUNCTIONS USED 




I 


NAME 


♦ # 


DESCRIPTION 


I 


I 


TAB 


* * 


FORMATS PRINT LINES 


I 


T- 








-T 
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FREEZER INVENTORY - EXTENDED VERSION 

Description 

This program provides a perpetual inventory of your freezer's contents, 
complete with an analysis of the items scheduled to reach their maxi- 
mum freezer life. Its use will help to insure the greatest possible savings 
from your freezer. 

Functions of the Program 

The program initializes all data elements, including month name abbre- 
viations prior to processing. Depending upon the answers that you 
provide to the questions asked by the program, a list will be provided in 
one of several formats. The expiration date list is sorted by expiration 
dates (computed from the date in and the months of freezer life for the 
item). The program's various processing elements have been separated 
to provide flexibility for extension of any of its features. 

Instructions for Use 

Freezer inventory items must be entered as data items to the program. 
Items used should be recorded and deleted from the data list at the 
time of use to insure the continued accuracy of your inventory. 

Data Entry 

All data items are entered as DATA statements. 

Data Format 

A single data format is used: 

Item code, Description, Item number, 
Month, Year item was placed in freezer, Months of freezer life 
Note the END data card. 

Output Description 

See example provided. Three forms of reports are available: 

1. A list of the freezer's entire contents. 

2. A list of all items of a specific type. 

3. A sorted list that is in order by expiration date or item types. 

Suggested Enhancements 

The possibility of disk or tape-file storage should be considered for this 
program. 
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20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

.1.30 

.1.40 

150 

160 

170 

ISO 

190 

20 

210 

220 

230 

240 

250 

260 

270 

280 

290 

30 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

50 

510 

520 

530 

340 

550 

560 

570 

530 

590 

60 

610 

620 

630 

640 

650 



REM FREEZER INVENTORY PROGRAM 

REM aoK^wwwxoKHOtoioi; DATA INITIALIZATION 

DIM E3(37> 

DIM E4(37) 

DIM M*(13> 

M *-(!)»" JAN" 

M*(2)^"FEB" 

M*(3)~"MAR" 

M$( 4 )-" APR" 

M«(5)="MAY" 

Mtf(6>="JUN" 

M*(7)="JUL" 

M* < 3 ) - " AUG » 

M*(9)="3EP" 

M*C10)^"OCT" 

MS (12)= "DEC" 
M*( 13) = "??'?" 
M--1000 

PRINT "ENTER THE DATE C MONTH? DAY ■> YEAR J 
Cl*vC2 



JKaOfOKXOKJIOKifOKJKJKJK 



I«E 



JUL? 15? 1979" 



,C2 



INPUT 

PRINT "SHALL. I PRINT ALL ENTRIES < Y OR N )' 

E2==D2 

INF'UT' A$ 

PRINT 

IF A* ="Y" 

PRINT "ENT1 

INPUT X* 

GOTO 390 

PRINT' "SHALL I PRINT THE ITEMS IN THE ORDER I HAVE THEM ( Y OR N )' 

INPUT AD* 

IF A0$=="Y" THEN 360 

■IN ORDER BY IT, 

A* 



THEN 

:r thi 



PRINT 
INPUT 
PRINT 
PRINT 
PRINT 

REM xaoKKwaoKsoK*.** PF 
PRINT TAB (20)?" TOD A Y 
PRINT 
IF A* 
IF A* 
PRINT 
PRINT- 
PRINT 
PRINT 
PRINT 
FOR I 

READ 11$ 

IF Il*=" 

READ 12* 

if a* ■•::• 

PRINT 11*5 
GOTO 580 
IF IlSOXHi 
PRINT II* 
NEXT I 

REM)K!fOK)K3l!)l«K)K)f(!fOK!K**}KJK>(! 

PRINT- 
PRINT 
PRINT 
STOP 

REM asaoKaoioKXJaoicoiXOKiioK .ITEM 
PRINT "ITEM CODE 'STAB (IS) 



310 
." ITEM CODE TO F : IND" 



M CODE (I) OR EXPIRATION DATE <E>'"' 



3CESSING AREA 
S DATE 



XXX MX JfOK JiOK .lOk'SOX XOKXCX MCJK 



fCl*?C25C3 



TAB (35); 



t TAB ( 42 ) ? 



I" THEN 640 

E" THEN 970 

ITEM CODE " 5 TAB (15)5" ITEM " f TAB C 35 ) i " NBR " i TAB ( 42 ) f " DATE IN " t 

AB(55)?"MTHS" 

- " 5 TAB (15)5" 

- " i TAB ( 55) t " " 

= 1 TO M 



END" THEN 590 
pNi'D1*i.D2jT 

"Y" THEN 560 
|;-5TA6(15) 5 1 



THEN 580 
;TAB(3.5)51i 



]> 5 TAB ( 34 ) 5 N 5 TAB ( 42 ) 5 Dl * 5 D2 1 TAB ( 55 ) ? T 

!(:■ 5 TAB ( 34 ) 5 N 5 TAB ( 42 ) > D 1 * 5 D2 % TAB ( 55 ) i T 
PROGRAM TERMINATION POINT xxxkxxxx. 



CODE BREAKDOWN 
: "ITEM" ; TAB (35) : 



AND F 
" NBR 



RINT SOKSOKXOKJK 

i TAE(42) i "DATE 



IN"i 
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6&0 PRINT TAB < 55)? "MTHS" 

670 PRINT " " 5TAEK15) 5 "- " J TAB (35) i " " ?TABC42K 

68 PRINT' " " » TAB ( 55 ) t " " 

690 I--1 

700 FOR J = 1 TO M 

710 READ II* 

720 IF 11*=" END" THEN 880 

730 READ I2*i-NfDl*vD2»T 

740 IF J>I THEN 850 

750 IF J<I THEN 870 

760 s*==n* 

770 IF I =:l. THEN 850 

780 RESTORE 

790 FOR K ■•=•■! TO J 

S00 READ Il$yI2*»NfDl*»D2»T 

810 IF 8*<>I1* THEN 830 

820 C-C+l 

830 NEXT K 

840 IF Di THEN 830 

850 IF Il*OS* THEN 870 

860 PRINT 1.1* J TAB < 15) ?I2*?TAB<34) ?N5TAB<42> JDl$5D2fT ABC55) ?T 

870 NEXT J 

880 RESTORE 

890 c=a 

90 IF I>1 THEN 920 

910 M=J-1 

920 PRINT 

930 1=1+1 

940 IF" K=M THEN 70 

950 GOTO 590 

960 PRINT 

970 REM kjkxxkxkkjkmcEXPIRATI'ON DATE BREAKDOWN AND PRINT xxxxx 

930 PRINT "EXP DATE" t TAB (12) t "ITEM CODE" f TAB (24) f "ITEM " "t TAB < 40 ) J "NBR" * 

990 PRINT TAB<47) ? "DATE IN " J TABC57) J "MTHS" 

1000 PRINT " " ?TAB<12) % " -" ;TAB<24> > "~ — " STAB<40> > 

1 1 PRINT " " t TAB C "17 ) t " - " f TAB ( 57 ) t " " 

1020 REM xxxxxxxxxx BUILD AND SORT' EXP DATE ARRAY jocxokjoc 

1030 FOR J=J. TO M 

1040 READ II* 

1050 IF' I1*=="END" THEN 1180 

1060 READ I2*?NyDi*W:>2>.T 

1070 GOSUB 1490 

1080 FOR K •- 1 TO 36 

1090 IF E3(K)==Q THEN .1.140 

1100 IF E20E4CK) THEN 1130 

1110 IF L.1.<> E3(l<) THEN 1130 

1120 GOTO 1170 

1130 NEXT K 

1140 E3(IO=I.l 

1150 M3=M3+1 

1160 E4 00=E2 

1170 NEXT J 

1180 REM mxokxmxokxxx SORT ENTRIES 

1190 FOR I = 1 TO M3-1 

120 FOR K = 1+1 TO M3 

:i.210 IF E4<I)< E400 THEN 1300 

1220 IF E4(I)>E4<K) THEN 1240 

1230 IF E3(IX=E3(K) THEN 130 

1240 E4<37>=E4(I) 

1250 E3(37)=E3(I) 

1260 E4<I)^E4<K) 

1270 E3<IJ==E3<IO 

1280 E4 < fO ==E4 < 37 > 

1290 E3<IO==E3< 37) 
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1300 
1310 
1320 
1330 
1340 
1350 
1360 
1370 
1380 
1390 
1-10 
1410 
1-920 
1430 
1-140 
1-950 
1-960 
1-970 
.1.480 
1-190 
150 
1510 
1520 
1530 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
.1.680 

1690 
170 
1710 
1720 
1730 
1740 
1750 
1760 
1770 



NEXT K 
NEXT' X 

REM xx xx xx xx x 
RESTORE 

FDR J == 1 TO M3 
FOR I = 1 TO M 

READ 11$ 

IF 11!!;= "END" I 

READ I2*»NyDl!|i 

GOSUB 1490 

IF El* <> M$<E3CJ)) 



PRINT OF RESULTS AFTER THE SORT xxxxxx 



HEN 



1450 
T 



THEN 1440 



IF E2 
PRINT 
PRINT 
NEXT I 
RESTORE 
PRINT 
NEXT J 
GOTO 590 

REM XXX1KXXXXXXX 

E2=D2 

FOR L = 1 TO 12 

IF M'JKDODIH 

L1=L 

GOTO 1580 
NEXT L 
LI =13 

IF LI =13 THEN 1630 
Ll=l..l+T 

IF LI <--VZ THEN 1630 
Ll=l...l -12 
E2==E2-*-l 
GOTO 1590 
E'1*=M*<L.1> 
RETURN 
REM 
REM 
DATA 
DATA 



<> E4(J> THEN 1440 
El$fE2rrAB<12>?:i:i*5TAB<24)SX2* 
TAB (57)?! 



TAB < 39 >?H* TAB ( 47 ) » Dl * 5 D2 > 



EXPIRATION DATE CONVERSION 



* THEN 1550 



OR INITIALIZATION 
DATA ENTRIES FOL 



xxkxxxxxxx DATA 

XXXXXXXXXXXXXXX 

BEEF » ROUND STEAK? 10 , JAN? : 1979 , 18 
PORK c ROAST r 1 1 * JAN y 1 979 y 9 

. la 



x xx xx x>k xx xx x 
_OW MOKXKOKHOioiOK 



DATA BEEF , HAMBURGER >• 1 03 v FEB >■ 1 979 * 
DATA PORK' r CHOPS , 1 4 >• FEB , 1 979 » 9 
DATA F'ORK r BACON , 1 5 r MAR r 1 979 » 1 8 
DAT A MEG , CORN , :l. 6 y GUN r 1 979 , 1 8 
DATA LAMB » CHOPS , 107c AUG » 1 979 .» 6 
DATA PORK !• BACON y 1 08 ? DEC y 1 979 , 6 
DATA BEEF , SIRLOIN STEAK » 1 9 ■> JAN y 1 979 , 
DATA BEEF >• HAMBURGER >■ 1 1 , FEB , 1 979 > 1 8 
DATA END 



18 



RUN 

ENTER THE DATE ( MONTH r DAY r YEAR > I . E , t JUL? 15 , 1979 

? DEC- 1? 1980 

SHALL I PRINT ALL ENTRIES < Y OR N )? 



SHALL I PRINT THE ITEMS IN THE ORDER I HAVE THEM < Y OR N )'? 
? Y 
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TODAY'S DATE*. 


DEC 1 


1980 






ITEM CODE 


ITEM 


NBR 
100 


DATE IN 


mth: 


BEEF 


ROUND STEAK 


JAN 


1979 


18 


PORK 


ROAST 


101 


JAN 


1979 


9 


BEEF 


HAMBURGER 


103 


FEB 


1979 


.18 


PORK 


CHOPS 


104 


FEB 


1979 


9 


PORK 


BACON 


105 


MAR 


1979 


18 


VEG 


CORN 


106 


JUN 


1979 


18 


LAMB 


CHOPS 


107 


AUG 


1979 


6 


PORK 


BACON 


108 


DEC 


1979 


6 


BEEF 


SIRLOIN STEAK- 


109 


JAN 


1979 


18 


BEEF 


HAMBURGER 


110 


FEB 


1979 


18 



BREAK IN 630 



RUN 



ENTER THE DATE ( MONTH , DAY , YEAR) I.E., JUL , 15,1979 

? DEC, 1,1980 

SHALL I PRINT ALL ENTRIES < Y OR N )? 

? N 



ENTER THE ITEM CODE TO FIND 
? PORK 

TODAY'S DATE! DEC 1 1980 



ITEM CODE 



ITEM 



PORK 
PORK 
PORK 
PORK 



ROAST 
CHOPS 
BACON 
BACON 



NBR 



101 
104 
105 
108 



DATE IN 


MTH: 


JAN 


1979 


9 


FEB 


1979 


9 


MAR 


1979 


18 


DEC 


1979 


6 



BREAK IN 630 



RUN 

ENTER THE DATE < MONTH, DAY , YEAR ) I.E., JUL, 15, 1979 

? DEC, 1,1980 

SHALL I PRINT ALL ENTRIES < Y OR N )? 

f Y 



SHALL I PRINT THE ITEMS IN THE ORDER I HAVE THEM < Y OR N >? 

? N 

IN ORDER BY ITEM CODE <I> OR EXPIRATION DATE <E>? 

? E 
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TODAY'S DATE! DEC 1 1980 



EXP 


DATE 
1979 


ITEM CODE 
PORK 


ITEM 


NBR 
101 


DATE 
JAN 


: IN 
1979 


MTHS 


OCT 


ROAST 


9 


NOV 


1979 


PORK 


CHOPS 


104 


FEB 


1979 


9 


FEB 


1980 


LAMB 


CHOPS 


107 


AUG 


1979 


6 


JUN 


1980 


PORK 


BACON 


108 


DEC 


1979 


6 


JUL 


1980 


BEEF 


ROUND STEAK 


100 


JAN 


1979 


18 


JUL 


1980 


BEEF 


SIRLOIN STEAK 


109 


JAN 


1979 


18 


AUG 


1980 


BEEF 


HAMBURGER 


103 


FEB 


1979 


18 


AUG 


1980 


BEEF 


HAMBURGER 


110 


FEB 


1979 


18 


SEP 


1980 


PORK 


BACON 


105 


MAR 


1979 


18 


DEC 


1980 


VEG 


CORN 


106 


JUN 


1979 


18 
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MAJOR SYMBOL TABLE - FREEZER LIST - EXTENDED 
X 1 

I NAME . . DESCRIPTION I 

j 1 

I E3< ) . , ARRAY FOR EXPIRATION DATE SORT I 

I E4( ) . . ARRAY FOR EXPIRATION DATE SORT I 

I M*< ) . . MONTH NAME ARRAY I 

I M ,. MAXIMUM NUMBER OF DATA READS I 

I Cl* . . CURRENT MONTH I 

I C2 . . CURRENT DAY I 

I C3 , . CURRENT YEAR I 

IX* . . TRANSACTION CODE TO LOCATE I 

I 11$ . . TRANSACTION CODE I 

I 12$ . . ITEM DESCRIPTION I 

IN . . ITEM NUMBER I 

I D1S . ♦ DATE INTO FREEZER -MONTH I 

I D2 . . DATE INTO FREEZER - YEAR I 

IT . . MONTHS FREEZER LIFE I 

I El* . . EXPIRATION MONTH I 

I E2 . . EXPIRATION YEAR I 

! j 

FUNCTIONS USED 

j : 

I NAME . . DESCRIPTION I 

j j 

I TAB ♦, FORMATS PRINT LINES I 

I GOSUB . . BRANCHES AND RETURNS I 

I DIM .. SINGLE DIMENSION ARRAYS I 
I ! 
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SUPERMARKET LIST 

Description 

This program assists the homemaker by producing a grocery shopping 
list that is listed by categories to facilitate fast and efficient shopping. 

Functions of the Program 

The program begins by initializing the seven major food categories pro- 
vided. Additional categories can be added easily, if desired. Prior to the 
printing of the grocery list, all data items are read and validated for 
accuracy. The major processing area of the program cycles through the 
data (once for each food category) and produces the formatted listing. 

Instructions for Use 

Data statements must be provided to the program prior to running it. 

Data Entry 

All data is entered using DATA statements. 

Data Format 

The format of the grocery list items is: 

Food category code, Item description, Quantity 
Note the END data record. 

Output Description 

See example provided. 



20 REM SUPERMARKET LIST 

30 REM ************ DATA INITIALIZATION ******************* 

40 M=1000 

50 DIM T$<7> 

60 Ml=7 

70 T$(.t) = "M B 

80 N$(1)='MEAT° 

90 T*<2)="FF" 

100 N$<2)=" FRESH FRUITS" 

.110 T*(3)='CF" 

120 N*<3>=" CANNED FRUITS' 

130 T*(4)=*FV" 

140 N$M) = 'FRESH VEGETABLES" 

150 T$(5)="CV" 

160 N*<5)="CANNED VEGETABLES' 

170 T$(6)="D° 

180 N*(6)="DAIRY PRODUCTS' 

190 T*<7)="0" 

200 N*(7)=»0THER» 



220 



10 REM *********** CHECK FOR DATA ACCURACY ******************* 
20 FOR I = 1 TO M 
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230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

330 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

510 

520 

530 

540 

550 

560 

570 

S80 

590 

600 

610 

620 

630 

640 



300 



ITEM #" ?I?' 



< Y OR N>?" 



READ Tl$ 

IF T1*=°END' THEN 3:.0 

READ I$?U$ 

FOR J = 1 TO Ml 

IF T1*=T*<J) THEN 
NEXT J 

PRINT "FOOD TYPE FOR 
NEXT I 

PRINT "SHALL I CONTINUE 
INPUT M 

IF A* ='N' THEN 500 
RESTORE 

REM *************** PROCESSING AREA 
FOR I = 1 TO Ml 
PRINT 
PRINT 
PRINT " "?N$CI> 

PRINT" 

FOR J= 1 TO M 
READ Tl* 

IF Tl$= a END" THEN 480 
READ I$?G$ 
IF Tl*<> T*<I) THEN 470 

print «< p ,tab<io>?i* 

NEXT J 

RESTORE 
NEXT I 
REM **************** PROGRAM TERMINATION 

PRINT 

PRINT 

STOP 

REM ************ DATA ENTRIES HOLLOW 

DATA M? STEAK ?1 LARGE 

DATA D?MILK?5 GALS 

DATA FF* APPLES ?1 BAG 

DATA CV? GREEN BEANS? 2 CANS 

DATA CM , YELLOW BEANS ?1 CAN 

DATA CF? PEACHES? 1 CAN 

DATA FF?PEARS? 1/2 DOZEN 

DATA 0?DQG FOOD? BAG 

DATA DAIRY* BUTTER? 1 POUND 

DATA END 



I*?" IS NOT RECOGNIZED" 



*********************** 



POINT *************** 



******************** 



RUN 

FOOD TYPE FOR ITEM * 9 BUTTER IS NOT RECOGNIZED 

SHALL I CONTINUE ( Y OR N>? 

? Y 



MEAT 
1 LARGE STEAK 



FRESH FRUITS 

1 BAG APPLES 
1/2 DOZEN PEARS 
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CANNED FRUITS 

1 CAN PEACHES 

FRESH VEGETABLES 

CANNED VEGETABLES 

2 CANS GREEN BEANS 

1 CAN YELLOW BEANS 

DAIRY PRODUCTS 
5 GALS MILK 

OTHER 
BAG DOG FOOD 



BREAK IN 530 



I- 



MAJOR SYMBOL TABLE - SUPERMARKET LIST 



-I 



I NAME ,. DESCRIPTION I 

I j 

I M . , MAXIMUM NUMBER OF DATA READS I 

I T*( > ,. MASTER CATEGORY CODE ARRAY I 

I N*< > ♦. MASTER CATEGORY DESCRIPTION ARRAY I 

I Ml . . NUMBER OF CATEGORIES I 

I Tl* . . TRANSACTION CODE I 

I IS . ♦ TRANSACTION DESCRIPTION I 

10$ .. TRANSACTION QUANTITY I 



I- 



-I 



I 



FUNCTIONS USED 



I NAME . . DESCRIPTION I 



I- 



-I 



I TAB , , FORMATS PRINT LINES I 

I DIM .. SINGLE DIMENSION ARRAYS I 

! x 
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TV Scheduling— Basic Version 112 

TV Scheduling— Extended Version 116 

Reminder Calendar— Basic Version 120 
Reminder Calendar— Extended Version 124 

Job Jar 129 

Chores 132 

Lawn/Plant Care 136 
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TV SCHEDULING - BASIC VERSION 

Description 

This program eliminates difficulties arising from family television 
viewing conflicts. It produces a weekly schedule that details the time, 
channel, and person scheduled to view a particular television show. 

Functions of the Program 

This program has several subroutines. Each is designed to perform a 
specific printing function. If extensions are desired, they should be 
relatively easy to accomplish by changing the individual routines. The 
program reads the scheduled items from DATA statements, determines 
their placement in the schedule, and then prints the schedule for the 
week. 

Instructions for Use 

Provide all individual schedule items prior to running the program. 
Priority in scheduling is given to the last entry read. Note the method 
used to indicate time: At 1200, the counter moves to 0030. 

Data Entry 

All data is entered using DATA statements. 

Data Format 

All data is entered using a single format: 

Person, Day of the week, Start time, Stop time, Channel number 
Note the END data record. 

Output Description 

See example provided. Output is printed for seven days. 



20 RFM TELEVISION SCHEDULE PROGRAM 

So RFM ******* ENTRY OF START / STOP' TIMES a***************** 

40 PRINT "ENTER STARTING TIME FOR THE SCHEDULE I.E.v 430" 

50 INPUT TO 

60 PRINT "ENTER STOPPING TIME FOR THE SCHEDULE I.E.. 11 JO 

70 INPUT Tl 

80 REM xxxxxxxxxxxx* DATA INITIALIZATION a***************** 

90 M0=2 
100 Ml -7 

110 DIM DO* (Ml) 
120 DIM CI (7) 
130 DIM Nl* (7) 
140 FOR I = 1 TO 7 
150 Nl* (.!) = " 
160 CI (I) = 
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.1.70 NEXT I 

180 DIM NO* C7> 

190 DO* < i;>== "SUN" 

200 DO* (2)~"M0N" 

210 DO* C3>="TUE" 

220 DO* C4> = "WED" 

230 DO* <5)-"rHU a 

2-90 DO* (6> = "FR.I" 

250 DO* (7)="SAT» 

260 REM xxxxxxxxxxxxxxx PROCESSING LOOP xxxxxxkxxxxxxxikxx 

270 GOSUB 690 

280 X0=T0 

290 X1=X0--1 00* (INT CX0/1 00 ) > 

300 IF XI < 60 THEN 320 

310 X0=X0+100~X1 

320 IF INT (X0/1 00) >=10 THEN 340 

330 PRINT " "J 

340 PRINT X0? 

350 GOSUB 760 

360 REM Ho********* CHECKS SCHEDULE ENTRIES FDR TIME xxxxxxx 

370 FOR J= 1 TO 336 

380 READ N*?Dl*jS0pSli.C0 

390 IF N*="END" THEN -480 

-40 IF SO > X0 THEN 470 

'410 IF SI <= X0 THEN 470 

420 FOR K = 1 TO 7 

■430 IF Dl* <> DO* <K) THEN 460 

4-40 Nl* (K) == N* 

450 CI <IO = CO 

460 NEXT K 

470 NEXT J 

480 GOSUB 840 

490 REM JKaooosaoKsoKxoK PRINTS SCHEDULE ENTRIES h************** 

500 PRINT " I"? 

510 FOR K=J. TO 7 

520 PRINT Nl*<IO t 

530 IF CI (K) >9 THEN 550 

540 PRINT " "J 

550 PRINT CI <K)fl"t "' 

560 Nl* (K) == " 

570 CI <l<) ---■ 

580 NEXT K 

590 PRINT 

600 GOSUB 840 

610 RESTORE 

620 X0=X0+30 

630 IF X0 < Tl+i THEN 290 

640 REM wxcsokxokjkjkxokx** PROGRAM TERMINATION POINT' J*************** 

650 PRINT " "t 

660 GOSUB 760 

670 STOP 

680 REM xxxxxxcx SUBROUTINES FOLLOW xncxxxxxxxxxxxxxxxiKxiKXXxx 

690 REM xxxxxxxxxxxx PRINTS HEADINGS xxxxxxxxxxxxxxxx 

700 PRINT " "J 

710 FOR I = 1 TO Ml 

720 PRINT " "J DO* (I)?" "J 

730 NEXT I 

740 PRINT 

750 RETURN 

760 REM xxxxxxxxxxx. PRINTS SCHEDULE OUTLINE xcxxxxxxxxmxxxxx 

78 FOR I = 1 TO Ml 

790 PRINT "I "f 

800 NEXT I 
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Bit! PRINT "I" 

820 RETURN 

630 REM xok)o;)k.k:k)K)(ok;iok;(ok 

B-tO PRINT " " t 

850 FOR I =■ .1 TO Ml 

860 PRINT "I "? 

870 NEXT' I 

880 PRINT "I" 

890 RETURN 

900 REM xoksokkxck^sokxjkxok***: DATA ENTRIES 

910 DATA B0BpFR.Tr 1000*. 1.10 0v9 

920 DATA CHUvSATp930i'10 00.-/ 

930 DATA DAD pWEDy 930 » 11 00 s. 7 

94 DA T'A MOM r WED e :!. 3 » 1 1 >■ 7 

95 DATA MOM r WED r 93 0*1000 >■ 9 
960 DATA END*? »» 



VERTICAL LINES xiKXXXxciKXXiiOKSKXiKxxaKnottxoKX 



FOLLOW XOKJIOKJOCJIOIOlOKiiOKXOICK 



ENTER STARTING TIME FOR THE; SCHEDULE I.E.* 430 
? 930 
ENTER 
'? 1130 



930 



1000 



1030 



1100 



1130 



BREAK 



STOPPING TIME FOR THE; SCHEDULE I.E.? 1130 

SUN MON TUE WED THU FRI SAT 

x j. ;; 1 1 1 1 1 

I I I I I I I I 

I 1 1 IMOM 9 1 1 ICHIJC 7 I 

I I I I I I I I 

! 1 :t 1 1 1 1 1 

i i :i i i i i l 

I 1 I IDAD 7 1 IB0B 9 1 1 

I I I I I I I I 

x x x 1 1 1 1 1 

I I I I I I I I 

I 1 1 IMOM 7 1 IB0B 9 1 1 

I I I I I I I I 

: 1 1 1 1 1 1 1 

I I I I I I I I 

i oi or oi oi oi oi oi 

i i r i i i i i 

j j [ 1 1 1 1 1 

I I I I I I I I 

I 01 t 01 01 01 01 01 

I II I I I I I 

I 1 1 1 1 1 1 1 

IN 670 



MAJOR SYMBOL TABLE - TY SCHEDULING 



I NAME 



I 


TO 


I 


Tl 


I 


D0$< ). 


I 


Cl< ) . 


I 


Nl$( ). 


I 


XO 


I 


m 


I 


Dl$ 


I 


so 


I 


si 


I 


CO 



DESCRIPTION 



BASIC 
— I 
I 



SCHEDULE START TIME I 

SCHEDULE STOP TIME I 

DAYS OF WEEK ASRAY I 

CHANNEL PRINT ARRAY I 

NAME PRINT ARRAY I 

TIME INCREMENT COUNTER I 

NAME I 

DAY OF WEEK I 

START TIME OF SHOW I 

STOP TIME OF SHOW I 

CHANNEL I 

1 
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FUNCTIONS USED 

X j 

I NAME .. DESCRIPTION I 

j j 

I INT . . CONVERTS NUMBER TO INTEGER I 
I GOSUB . . BRANCHES TO AND RETURNS I 

I HIM ., SINGLE DIMENSION ARRAYS I 

j x 
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TV SCHEDULING - EXTENDED VERSION 

Description 

This program eliminates family television viewing conflicts by producing 
a daily time schedule for the specified period. All conflicts are identified 
and printed for your review and resolution. It can also be used to indi- 
cate scheduled viewing times for households that place restrictions on 
viewing time. 

Functions of the Program 

This program, like the previous version, is built in modules. Note the 
major difference is that this version produces the schedule for the 
specified period only. 

Instructions for Use 

Enter schedule items prior to running the program. 

Data Entry 

All data is entered using DATA statements. 

Data Format 

The format for entry is: 

Person, Day of the week, Start time, Stop time, Channel number 
Note the END data record. 

Output Description 

See example provided. 



20 REM TELEVISION SCHEDULE - EXTENDED 

30 REM ***##**» ENTRY OF START / STOP TIMES *####«>!<####### 

40 PRINT "ENTER THE START DAY? AND THE ENDING DAY OF THE SCHEDULE" 

50 PRINT "I.E.* SUN t SAT" 

60 INPUT D2$»D3* 

70 PRINT "ENTER START AND STOP TIMES I.E.* 430? 1130' 

80 INPUT TOrTl 

90 IF Tl > TO THEN 110 

100 T1=T1 + 1200 

110 REM #*«*##«*##* DATA INITIALIZATION KM**************** 

120 E0=0 

130 E1=0 

140 M0=2 

150 Ml=7 

160 12=1 

170 13=7 

ISO DIM CI (7) 

190 DIM Nl* <7> 

200 FOR I = 1 TO 7 
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210 Nl* (1)=" 
220 CI = 

230 NEXT I 

240 DIM D0*(7) 

250 DO* <1)="SUN" 

260 DO* <2)="M0N" 

270 DOS <3>="TUE" 

2B0 DO* <4) = "WED" 

290 DO* <5>='THU" 

300 DO* <6)="FRI" 

310 DO* (7)="SAT" 

320 FOR I = 1 TO 7 

330 IF D2*<> DO* (I) THEN 350 

340 12=1 

350 IF D3*<> DO* <I> THEN 370 

360 13=1 

370 NEXT I 

380 IF Tl >T0 THEN 400 

390 T1=T1 +1200 

400 M1=I3-I2+1 

410 IF M1>0 THEN 430 

420 M1=I3-I2 +8 

430 REM ************ PROCESSING LOOP ************************ 

440 IF El =0 THEN 460 

450 GOSUB 1120 

460 XO=TO 

470 X1=X0-100*(INT(X0/100)> 

480 IF XI < 60 THEN 500 

490 X0=X0+100-X1 

500 IF El = THEN 580 

510 IF XO <= 1200 THEN 540 

520 XO = X0-1200 

530 Tl = Ti-1200 

540 IF INT(X0/100) >=10 THEN 560 

550 PRINT ■ •; 

560 PRINT X0 5 

570 GOSUB 1230 

580 REM ********** CHECKS SCHEDULE ENTRIES FOR TIME ********* 

590 FOR J= 1 TO 336 

600 READ N*fDl*,SOrSlfCO 

610 IF N*='END" THEN 770 

620 IF SO > XO THEN 760 

630 IF SI <= XO THEN 760 

640 K=I2 

650 IF Dl* <> DO* (K) THEN 710 

660 IF Nl* <K)=" ■ THEN 690 

670 IF El >0 THEN 690 

680 GOSUB 1370 

690 Nl* <K> = N$ 

700 CI <K> = CO 

710 IF K = 13 THEN760 

720 K=K+1 

730 IF K < 8 THEN 650 

740 K=l 

750 GOTO 650 

760 NEXT J 

770 IF El = THEN 810 

780 GOSUB 1310 

790 REM *********** PRINTS SCHEDULE ENTRIES **************** 

800 PRINT ' I", 

810 K'=I2 

820 IF El = THEN870 

830 PRINT N1*<K)? 

840 IF CI <K> >9 THEN 860 
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850 PRINT " "5 

860 PRINT CI (K)*"!"? 

870 Nl$ <K> = " 

880 CI <K> = 

890 IF K = 13 THEN 940 

900 K=K+1 

910 IF K<8 THEN 820 

920 K=l 

930 GOTO 820 

940 IF El = THEN 970 

950 PRINT 

960 GOSUB 1310 

970 RESTORE 

980 X0=X0+30 

990 IF XO < Tl + 1 THEN 470 

1000 REM ************* PROGRAM TERMINATION POINT ****************** 

1010 El = El + 1 

1020 IF El > 1 THEN 1070 

1030 IF E0=0 THEN 400 

1040 PRINT "SHALL I SHOW YOU THE SCHEDULE < Y OR N )?■ 

1050 INPUT A$ 

1060 IF A$ = "Y" THEN 400 

1070 IF A*<>"Y" THEN 1100 

1080 PRINT " "i 

1090 GOSUB 1230 

1100 STOP 

1110 REM ******* SUBROUTINES FOLLOW ********************** 

1120 REM ************ PRINTS HEADINGS ******************* 

1130 PRINT • 'i 

1140 1=12 

1150 PRINT ' °?D0* (I)?" °f 

1160 IF 1=13 THEN 1210 

1170 1=1+1 

1180 IF I <8 THEN 1150 

1190 1=1 

1200 GOTO 1150 

1210 PRINT 

1220 RETURN 

1230 REM *********** PRINTS SCHEDULE OUTLINE ***************** 

1240 PRINT " m i 
1250 FOR I = 1 TO Ml 

1260 PRINT "I 'i 

1270 NEXT I 

1280 PRINT "I" 

1290 RETURN 

1300 REM ************** VERTICAL LINES ********************** 

1310 PRINT " °i 

1320 FOR I = 1 TO Ml 

1330 PRINT "I "i 

1340 NEXT I 

1350 PRINT "I" 

1360 RETURN 

1370 REM ********** ERROR ROUTINE FOR CONFLICTS *********** 

1380 IF EO <> THEN 1400 

1390 PRINT" CONFLICTS IN SCHEDULE " 

1400 EO = EO + 1 

1410 PRINT Dl$fSO?Nl$ < K ) 5C1 <K ) r N$ SCO 

1420 IF CI <K> <> CO THEN 1440 

1430 PRINT "*** SAME CHANNEL ***" 

1440 RETURN 

1450 REM ******* DATA ENTRIES FOLLOW HERE ************ 

1460 DATA BOB ?FRI , 1000? :U00y9 

1470 DATA CHUCrSAT ? 930?1000i-7 

1480 DATA DAD rWED» 930? 1 :L00r7 
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1490 DATA MOM , WED, 1030, 1 100, 7 

1500 DATA MOM ,WED, 0930* 1000,9 

1510 DATA KIMI, SUN, 0900, 0930, 13 

1520 DATA RAE ,SAT, 0830, 0930, 1 

1530 DATA END,,,, 



RUN 

ENTER THE START DAY, AND THE ENDING DAY OF THE SCHEDULE 

I.E.. SUN 9 SAT 

'? FRI.WED 

ENTER START AND STOP TIMES I.E., 430,1130 

'? 930,1100 

CONFLICTS IN SCHEDULE 
WED 930 DAD 7 MOM 9 

WED 1030 DAD 7 MOM 7 

*** SAME CHANNEL *** 

SHALL I SHOW YOU THE SCHEDULE ( Y OR N )? 
? Y 

FRI SAT SUN MON TUE WED 

930 I 1 1 1 1 1 1 

I I I I I I I 

I ICHUC 7 1 1 1 IMOM 9 I 

I I I I I I I 

1000 I 1 1 1 1 1 1 

I I I I I I I 

IBOB 9 1 1 1 1 IDAD 7 I 

I I I I I I I 

1030 I 1 1 1 1 1 1 

I I I I I I I 
IBOB 9 1 1 1 1 IMOM 7 I 
I I I I I I I 

1100 I 1 1 1 1 1 1 

I I I I I I I 
I 01 01 01 01 01 01 

I I I I I I I 

j 1 x j j j j 

BREAK IN 1100 





MAJOR 


SYMBOL TABLE - TY 


SCHEDULE - 


- EXTENDED 


I 


NAME 


» 4 


DESCRIPTION 




I 


I 


D2* 


, + 


START DAY 




I 


I 


D3$ 


. . 


STOP DAY 




I 


I 


TO 


, . 


START TIME 




I 


I 


Tl 


. . 


STOP TIME 




I 


I 


Cl( 




CHANNEL PRINT 


ARRAY 


I 


I 


Nl$( 


).. 


NAME PRINT ARRAY 


I 


I 


D0$( 


) . . 


DAY OF WEEK ARRAY 


I 


I 


SO 


* * 


START TIME IN 




I 


I 


CO 


» * 


CHANNEL IN 




I 


I 


SI 


'• 


STOP TIME IN 




I 




FUNCTIONS USED 






I 


NAME 


* * 


DESCRIPTION 




I 



I INT .. CONVERTS NUMBER TO INTEGER I 
I GOSUB . . BRANCHES TO AND RETURNS I 

I DIM .. SINGLE DIMENSION ARRAYS I 

I j 
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REMINDER CALENDAR - BASIC VERSION 

Description 

This program produces a simple reminder calendar for the busy indi- 
vidual or family. The items are printed in abbreviated form on the 
calendar, and a detailed list is printed upon request. 

Functions of the Program 

The program prints, for the month selected, a calendar and list of the 
items scheduled. Most program functions are executed using subrou- 
tines to facilitate extensions or modifications to the basic listing. The 
major processing loop occurs in lines 210-420. All functions occurring 
after the termination point are performed using GOSUBs. 

Instructions for Use 

All scheduled items must be entered prior to running the program. 

Data Entry 

All data items are entered using DATA statements. 

Data Formats 

There are two data formats used by the program: 

1. The master month record is entered as the first item: 

Month name, Days in month, Day of week that month starts on 

2. Schedule items are provided in the following format: 

Month, Day, Abbreviated description, Description 

Output Description 

See example provided. The program produces a calendar and a detailed 
print of the scheduled items. 



20 REM REMINDER SCHEDULE - BASIC 

30 REM a************ DATA INITIALIZATION xxkxxxxxxkxxxx 

40 SO =■-•() 

50 LO-0 

60 Ml =7 

70 M2=6 

80 DIM D6*<7> 

90 DIM D7<7) 

100 DIM DO* (7) 

110 DO* CI >^ "SUN" 

120 DO* <Z)-"MON" 

.1.30 DO* <3> = "TUE" 

140 DO* ('O = "WE'D" 

150 DO* <5)=="THU" 

160 DO* <6)~"FRX' 
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170 DO* C7>="SAT" 
ISO FOR :i: == 1 TO 7 
.1.90 D6*<I)=» 
200 NEXT I 

210 REM soKKxcxoKjfoKjfoiofoK* PROCESSING LOOP He************ 
220 READ M*»D»D:L* 
230 FOR K = 1 TO 7 
240 IF Dl* <> DO* (K) THEN 260 
250 S0-K 
260 NEXT K 

270 IF SO =•• THEN -180 
230 GOSUB 490 
. 290 FOR J = 1 7'0 M2 
300 GOSUB 560 
310 FOR K - .1. TO 7 
320 Nl* (IO = " 
330 NEXT K 

340 IF D <~ 10 THEN 43 
350 GOSUB 620 
360 FOR L =■• 1 TO 10 
370 GOSUB 950 
380 IF LI == THEN 120 
390 GOSUB 640 
400 L0=L0+1 
410 NEXT L 
420 NEXT J 

430 REM xxxxxxxxxxxxx PROGRAM TERMINATION POINT kxxxxxxxxxxxxx 
-MO PRINT "SHALL I PRINT THE SCHEDULED ITEMS < Y OR N )'.■"■ 
450 INPUT A* 

460 IF A* <> "Y" THEN 480 
470 GOSUB 13.40 
480 STOP 

490 REM x.xx-k>kx:x>k'aokx>k PRINTS' HEADINGS xxxxxxxxhokxxikxx 

500 PRINT " »j M < 6 

510 FOR I = 1 TO 7 

520 PRINT " "J DO* (I)," «} 

530 NEXT I 

540 PRINT 

550 RETURN 

560 REM xoksokiioookxooc PRINT'S SCHEDULE OUTLINE xxxxxxxxxxxxx 

570 FOR I = 1 TO Ml 

580 PRINT "I-- — »f 

590 NEXT I 

600 PRINT "I" 

610 RETURN 

620 REM xxxxxxxx PRINT'S CALENDAR DAY LINE xxxskxxxikxx 

630 FOR I =-- 1 TO Ml 

640 IF JO 1 THEN 670 

650 IF I <> SO THEN 670 

660 10=1 

670 IF D >== 10 THEN 710 

680 PRINT "I '•} 

690 10=10+1 

700 GOTO 80 

710 IF 10 > 9 THEN 780 

720 IF 10 <> THEN 750 

730 PRINT "I «f 

740 GOTO 80 

750 PRINT "I •"> lot" «', 

760 10=10+1 

770 GOTO 80 

780 PRINT "I "fl'O?" "? 

790 10=10+1 

800 NEXT I 
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810 PRINT "X" 

820 L0=0 

830 RETURN 

8-10 REM sksokxoksokxok*: VERTICAL LINES J*************:)*)!™****.* 

350 FOR I = 1 TO MX 

860 IF D6*<I>-" " THEN 9:1.0 

87 PRINT " I " 5 06* < I )i" " ? 

880 D6* <!)==" 

890 D7<I>=0 

900 GOTO 920 

910 PRINT "I "? 

920 NEXT I 

930 PRINT "1° 

9'?0 RETURN 

950 REM xoxhoook-icmooo™ REVIEWS SCHEDULE ITEMS jkjk^xok^xokxokxc 

960 RESTORE 

970 L1=0 

980 READ M*yDyD.l* 

990 FOE I-"- 1 TO 10 

1 READ M3* > D3 » D-W y D5* 

] 01 TF M3*=="END° THEN .1.130 

1020 IF D3 > D THEN 1.120 

1030 IF M3$ <> M* THEN 11.20 

10 't0 IF D3 >== 10 THEN 1120 

1050 IF D3 v 10-v THEN 11.20 

1.060 II. = D3-I0+8 

1070 D7<Xl)-l+D7<I'l) 

1.080 IF D7(.l:l.)<= L0 THEN 1120 

1.090 IF D6$<I:U <> " " THEN 1120 

11.00 D6*CC1.):=D4* 

1110 LI == 1 

1120 NEXT I 

1.1.30 RETURN 

11-10 R'EM hokxokxokxokjiok DETAILED PRINT OF SCHEDULE 

11.50 PRINT 

1.160 PRINT M* 

1170 RESTORE 

1.180 READ M*>.D»D1* 

1190 FDR I •- 1 TO 10 

1.20 READ M3$»D3vD'1$»D:5* 

1210 IF M3* =="END" THEN 1260 

1220 IF D3>D THEN 1.250 

1.230 IF M3* <> M$ THEN 1.250 

1.240 PRINT D3yD<1*yD5* 

1.250 NEXT I 

1.260 RETURN 

1270 REM Mxxxxxxmx DATA ENTRIES FOLLOW jos*********:******* 

1280 DATA JAN y 3.1. vMON 

1 290 DATA JANy 1 » DOCTOR > APPOINTMENT FOR PHYSICAL 

130 DATA JANy2yDENTSTy3 PM APPOINTMENT FOR CLEANING 

1310 DATA JAN y 31. »B-DAY y.<ENNY'S BIRTHDAY 

1.320 DATA JAN y 99 y NOTE y VISIT FARM DURING THIS MONTH 

1330 DATA JAN » 9 v CAR y REPAIR OF MOTOR 

IIMO DATA JAN y 2 y SCHOOL >• PTA MEETING 7 PM 

1.350 DATA ENDy r y 
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RUN 

JAN 

SUN MON TUE WED THU FRI SAT 

X 1 1 ! x j j j 

I I1I2I3I4I5I6I 

I I DOCTOR I DENTIST I I I I I 

I I I SCHOOL I I I I I 

I x x j j j j x 

1 7 I 8 I 9 I 10 I 11 I 12 I 13 I 
III CAR I I I I I 

I x x x j j j x 

1 14 I 15 I 16 I 17 I 18 I 19 I 20 I 

I j x x j j x x 

I 21 I 22 I 23 I 24 I 25 I 26 I 27 I 

X x j j j j x j 

I 28 I 29 I 30 I 31 I I I i 

I I I I B-DAY I I I I 

]; x x j j j j j 

SHALL I PRINT THE SCHEDULED ITEMS < Y OR N >"? 
? Y 



JAN 






1 




DOCTOR 


9 




DENTIST 


31 




B-DAY 


9 




CAR 


2 
BREAh 


; IN 480 


SCHOOL 



APPOINTMENT FOR PHYSICAL 

3 PM APPOINTMENT FOR CLEANING 

KENNY'S BIRTHDAY 

REPAIR OF MOTOR 

PTA MEETING 7 PM 



MAJOR SYMBOL TABLE 



REMINDER 



I NAME 

I 



. DESCRIPTION 



— I 
I 



I 


so 




» * 


POINTER TO DAY OF WEEK- 


I 


I 


D0*< 


) 


f ♦ 


DAY OF WEEK- 


I 


I 


D6*< 


) 


* * 


OUTPUT ARRAY 


I 


I 


M$ 




► * 


DAY OF WEEK IN 


I 


I 


D 




► * 


DAY IN 


I 


I 


Dl$ 




» 


DAY OF WEEK IN 


I 


.1 


10 




► * 


DAY OF MONTH COUNTER 


I 


I 


D7< ) 




, 


OUTPUT ARRAY FOR COUNT 


I 


I 


M3$ 




» * 


MONTH IN 


I 


I 


D3 




. 


DAY IN 


I 


I 


D4$ 




► ♦ 


ITEM IN 


I 


I 


D5$ 




t ♦ 


ITEM DESCRIPTION IN 


I 




FUNCTIONS USED 




I 


NAME 




, 


DESCRIPTION 


I 



I 60SUB . . BRANCH TO AND RETURN I 

I DIM ., SINGLE DIMENSION ARRAY I 

X j 



Scheduling Programs for Home Use 123 



REMINDER CALENDAR - EXTENDED VERSION 

Description 

This program is a useful assistant for the busy individual or family. It 
produces a reminder calendar for as many months in advance as are 
desired. 

Functions of the Program 

This program functions in a similar way to the basic reminder program 
given previously. There are, however, several major enhancements: 
l.This program produces the calendars for the number of months 
specified. 

2. The calendars are printed either continuously or with page align- 
ment. 

3. The calendars can be either condensed or expanded (to allow for 

"write-ins"). 

4. Month names and the number of days in each month are initialized 

for you. 

Instructions for Use 

Record your schedule items and enter them prior to running the pro- 
gram for the month that they are scheduled in. 

Data Entry 

All data is entered using DATA statements. 

Data Format 

One data form is required. Scheduled items are entered in the following 

form: 

Month, Day, Abbreviated description, Description 

Output Description 

See example provided. The printed results will include individual prints 

for each of the months requested. Page alignment is allowed, if 

requested. 



70 REM REMINDER SCHEDULE AND CALENDAR - ENHANCED 

30 REM HO************ DATA INITIALIZATION ik**************** 

flO N=0 

50 S0==0 

60 1.0 = 

70 Ml =7 

80 M2=7 

90 M4=l 
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100 DIM D6*<7) 
1.1.0 DIM 07 (.7 > 
12.(1 DIM DO* (7> 

130 dim no a.2;> 

140 DIM MO* <12> 

1 5 READ D * CD, D * < 2 ) P D $ ( 3 > » D $ < 4 ) , D * ( 5 ) , D * < 6 > , D (J $ ( 7 > 

.160 FOR I = 1 TO 12 

170 RE' AD M $ C I ) .. N ( I ) 

130 NEXT I 

190 FOR I = i to 7 

200 D6*a.') = " 

210 NEXT I 

220 PRINT "ENTER THE FIRST MONTH AND YEAR TO BE PRINTED I,F,>. HAN? 1 9R() » 

230 INPUT MtfpYl 

240 PRINT "ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH STARTS ON" 

250 INPUT' Dl* ' " 

260 PRINT "ENTER THE NUMBER OF MONTHS TO BE PRINTED I*F, >■ '! " 

270 INPUT' N 

280 PRINT "SHALL I PRINT THE SCHEDULED TIMES < Y OR N >">" 

290 INPUT' A$ 

30 PRINT "DO YOU WANT PAGE ALIGNMENT ( Y OR N )•?" 

310 INPUT Alii; 

320 PRINT "DO YOU WANT AN EXPANDED CALENDAR ( Y OR N ) ' : "« 

330 INPUT A2* 

340 IF Allli <> "Y" T'HEN 370 

350 PRINT "BEFORE THE PRINTING OF EACH MONTH A '?' WILL APPEAR" 

360 PRINT "ALIGN TO THE TOP OF PAGE BEFORE PRESSING TT-IF RETURN " 

370 FOR I = 1 TO 12 

380 IF M* <> M0*(X) THEN 400 

390 M4=i 

400 NEXT I 

410 FOR K- 1 TO 7 

420 IF Dl$ <> D0*<IO THEN 440 

430 S0--K 

440 NEXT K 

450 REM xxxxxxxxxx PROCESSING LOOP xxxxxoKvoHxxxxxxxxxotoioii 

460 FOR 12 = M4 TO M4+N-1 

470 NO (2 > =28 

480 Y=Y1 

490 IF INT(Y/4)OY/4 THEN 510 

500 N0C2>=29 

510 10=0 

520 M3=I2 

530 IF M3 <= 12 THEN 590 

540 M3--M8--.1.2 

550 Y-YU-1. 

560 IF INT (Y/4)-C>r/4 THEN 580 

570 NIK 2) =29 

580 GOTO 530 

590 IF SO ■■=■ THEN 820 

600 GOSUB S60 

610 FOR J = 1 TO M2 

620 GOSUB 960 

630 FOR K = 1 TO 7 

640 Nl* CIO = " 

650 NEXT K 

&60 IF N(KM3> •:, 10 THEN 790 

670 GOSUB 1020 

680 FOR L = 1 T'O 10 

690 GOSUB 1390 

70 IF LI <> THEN 750 

710 IF A2* <:> "Y" THEN 7S0 

720 GOSUB 1280 

730 GOSUB 1280 
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740 GOTO 780 

750 GOSUB 1280 

760 L 0=1.0 + 1 

770 NEXT L 

780 NEXT J 

790 REM xxxxxxxxxxxxx PROGRAM TERMINATION POINT xxxxxnxxxxxx* 

800 IF A* O "Y" THEN 820 

8:1.0 GOSUB 160 

820 IF SO OS THEN 840 

830 S0=1 

840 NEXT 12 

850 STOP 

860 REM sokxokxxxoooi;*: PRINTS HEADINGS xxxxxxxxxxxxxxxxxxx 

870 IF Al$ O "Y" THEN 890 

880 INPUT X* 

890 PRINT' 

900 PRINT " »?MC)*CM3)?° '!Y 

910 FOR I = 1 TO 7 

920 PRINT " "3 DO* (!>»' " >* 

930 NEXT I 

940 PRINT 

950 RETURN 

960 REM JKXiSiOfiiKwiiOx PRINTS SCHEDULE OUTLINE jkxokxokxokxokxokjiok 

970 FOR I == 1 TO Ml 

980 PRINT "I "i 

990 NEXT I 

100 PRINT "I" 

10.10 RETURN 

.1.020 REM jkxoksokjjok*: PRINTS CALENDAR DAY LINE J*********** 

1030 FOR I = .1. TO Ml 

1040 IF JO 1 THEN 1070 

1050 IF I O SO THEN .1070 

1060 10=1 

1070 IF N0<M3) >= 10 THEN 1110 

1080 PRINT "I "t 

.1.090 TO =10+1 

110 GOTO 1230 

1110 .IF 10 > 9 THEN 13.90 

1:1.20 IF 10 O THEN 1150 

1.1.30 PRINT "I "? 

11 -10 GOTO 1230 

1150 PRINT "I "JI05" "> 

1.1.60 .10 =10+1 

1170 SI =1+1 

1180 GOTO 1230 

1190 PRINT "I "SI0?" 

120 SI = 1+1 

1210 10=10+1 

1220 30=1+1 

1230 NEXT I 

.1.240 PRINT "I" 

1250 I.. 0-0 

1260 S0=S1 

.1.270 RETURN 

1280 REM xxxxxxxxxx VERTICAL LINE'S xxxxxxxxxxxxxxxxxxxx 

1290 FOR I = .1. TO Ml 

1300 IF D6*<X)=" " THEN 1350 

1310 PRINT "I " >'D6*<I> f " "i 

1320 D6$CI>=" 

1330 D7<1") = 

1340 GOTO 1360 

1350 PRINT "I "f 

1360 NEXT I 

1370 PRINT "I" 
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.1.380 RETURN 

.1.390 REM KiocJocxoKXOKifOKXoic REVIEWS SCHEDULE ITEMS xxxxxxxxxxx 

1-40 RESTORE 

1-420 FDR I = 1 TO 31 

1430 READ X* 

1-440 NEXT I 

1450 FOR 3>- 1 70 .1.0 

1-460 READ M3*!«D3i.D4*vD5$ 

1-470 IF M3*~"E"ND" THEN 1590 

1-480 IF D3 > N0<M3> THEN 1580 

1490 IF M3* <> M0$CM3> THEN 15B0 

150 IF 03 >==I0 THEN 1580 

1510 IF D3 < I0--7 THEN 1580 

1520 II = D3--I0+8 

1530 D7<.T1)-1+D7CI:0 

1540 IF »7( II )■=..= L.0 THEN 1580 

1550 IF D6*<Z1> <> » « THEN 1580 

1560 D6tf < II ) -4)4* 

1570 LI =■• 1 

1580 NEXT I 

1590 RETURN 

.1.60 REM hokxokhokjoc* DETAILED PRINT OF SCHF'DUI F 

16.1.0 PRINT 

.1.620 PRINT M0*(M3) 

1630 RESTORE 

1640 FOR I = 1 TO 31 

1650 READ X* 

.1.660 NEXT I 

1670 FOR I = 1 TO 100 

1680 READ M3i!wD3»D4$>.D5$ 

1690 IF M3* ="END" THEN 1780 

170 IF M3* O M0$<M3) THEN 1720 

.1.710 PRINT D3,D-4$,D5$ 

1720 NEXT I 

1730 RETURN 

.1.740 REM xxxxxxxxx DATA FOR INITIALIZATION xokkxxxxxxxx 

1750 DATA SUN t MON, TUE v WED y THU s> FRI > SAT 

1760 DATA JAN, 31 , FEB, 28, MAR ,31 , APR, 30 ,MAY,31 » JUN,30 

1770 DATA JUL , 31 , AUG , 3.1. , SEP , 30 , OCT , 3.1. , NOV , 30 , DEC , 31 

1780 REM xxxxxxxxxx DATA ENTRIES FOLLOW xxxxxxxiokkxxxx 

1790 DATA JAN »h DOCTOR , APPOINTMENT FOR PHYSICAL 

180 DATA JAN,2,DENT'ST, 3 PM APPOINTMENT DOCTOR SMITH 

18.1.0 DATA JAN , 2 , SCHOOL , PTA MEETING 7 PM 

1820 DATA F'EB,2S,B~DAY .-KENNY'S BIRTHDAY 

1830 DATA JAN, 99, NOTE, NEXT MONTH VISIT FARM 

.1.840 DATA END,,, 

RUN 

ENTER THE FIRST MONTH AND YEAR TO BE PRINTED I.E., JAN, 1980 

? JAN, 1980 

ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH STARTS ON 

? TUE 

ENTER THE NUMBER OF MONTHS TO BE PRINTED I.E., 10 

? 1 

SHALL I PRINT THE SCHEDULED ITEMS ( Y OR N ) f 

? Y 

DO YOU WANT PAGE ALIGNMENT < Y OR N >? 

? Y 

DO YOU WANT AN EXPANDED CALENDAR < Y OR N )? 

? Y 

BEFORE THE PRINTING OF EACH MONTH A '?' WILL APPEAR 

ALIGN TO THE TOP OF PAGE BEFORE PRESSING THE RETURN 
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JAN 1980 

SUN MON TUE WED THU FRI SAT 

T T J I I I I I 

I I I 1 I 2 I 3 I 4 I S I 

T I I DOCTOR I DENTIST I I I I 

i i i ; scH00L x i \ 

\ 6 I 7 I 3 I 9 I 10 I 11 I 12 I 

J j x j ; ; ; ; 

i i i i ? ; ; ; 

X 13 I 14 I 15 I 16 I 17 I 18 I 19 I 

i * * * ; ; ; 5 

i i i i i J J i 

x t 1 1 1 1 x ; 

I o I ?t I 22 I 23 I 24 I 25 I 26 I 

I " I " I I I * * ? 

! i i j ; ; ; 

I 07 I 28 I 29 I 30 I 31 I I I 

i " i i i i * j ; 

i i i ii ; ; ; 



JAN 
1 



99 



DOCTOR 
DENTIST 
SCHOOL 
NOTE 



APPOINTMENT FOR PHYSICAL 

3 PH APPOINTMENT DOCTOR SMITH 

PTA MEETING 7 PM 

NEXT MONTH VISIT FARM 



BREAK IN 850 



MAJOR SYMBOL TABLE - REMINDER - EXTENDED 



I NAME 

I 



. DESCRIPTION 



-I 
I 

-I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 

-I 



I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
I- 



N 

D0$( 

N0< 

M0$< 

M* 

Yl 

Dl* 

A2$ 

D6$< 

D7< 

10 

M3$ 

D3 

D4$ 

D5$ 

X* 



NUMBER OF MONTHS TO PRINT 

DAYS OF THE WEEK 

# OF DAYS ARRAY 

MONTH NAME ARRAY 

FIRST MONTH TO PRINT 

FIRST YEAR TO PRINT 

DAY OF WEEK ilONTH STARTS ON 

INDICATOR F03 EXPANDED CALENDAR 

ITEM PRINT ARRAY 

COUNTER ARRAY 

DAY OF MONTH 

MONTH IN 

DAY IN 

ITEM IN 

ITEM DESCRIPTION IN 

DUMMY VARIABLE FOR RESTORE 



FUNCTIONS USED 



I NAME 



. . DESCRIPTION 



I 

I INT 
I GOSUB 
I DIM 

I 



CONVERTS NUMBER TO INTEGER 
BRANCHES TO AND RETURNS 
SINGLE DIMENSION ARRAYS 
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JOB JAR 

Description 

The traditional jar of household tasks that is used to occupy idle 
moments is automated by this program. Odd jobs that we never seem 
to find the time for are placed in the computer job jar for future 
reference. Later, when you have free time, the computer will randomly 
choose one to fill that idle moment. It's a sure way of taking care of 
annoying household duties. Peeking is not allowed. 

Functions of the Program 

The program randomly selects an item from the data items supplied 
that meets the time availability specified. 

Instructions for Use 

New jobs that are to be added to the jar are entered by means of DATA 
statements. Completed jobs should be deleted from the data list at 
time of accomplishment. 

Data Entry 

All data is entered using DATA statements. 

Data Format 

Tasks are entered using the following format: 

Job name/description, Estimated time to complete 

Output Description 

See example provided. 



20 REM HOUSEHOLD CHORE' JOB-JAR PROGRAM 

30 REM **>!OiOtc;K>Kaotc:iOK* DATA INITIATION ^iK****:*)**;********)******* 

40 M0=99 



50 Y=l 




60 N=0 




70 P=0 




B0 PRINT "WOULD YOU LIKE 


90 INPUT A* 




100 IF A$ <> ' 


"Y" THEN 170 


110 PRINT 




120 PRINT 




130 S0=1 




140 GOSUB 380 




150 S0=0 




160 N=0 




170 PRINT 'DO 


YOU HAVE" fit 


180 INPUT A* 




190 IF A*="N" 


THEN 220 



TIME LIMITATION ( Y OR N>?" 
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20 PRINT "ENTER THE MAXIMUM TIME AVAILABLE (IN HOURS)" 

210 INPUT MO 

220 REM Hi******** PROCESSING AREA jk*********************** 

230 GOSUB 380 

240 IF N <> THEN 270 

250 PRINT' "ALL JOBS HAVE A GREATER TIME FACTOR" 

260 GOTO 360 

270 PRINT N?" JOBS ARE AVAILABLE FOR SELECTION" 

280 Z=.TNT ( <RND < ) ) wN > +1 

290 N=0 

30 Nl =0 

310 GOSUB 36)0 

320 PRINT "DATA RECORD "?N15" HAS BEEN SELECTED" 

330 PRINT 

340 PRINT "DESCRIPTION '?T0*f - TIME ALLOWED} » iTl i " HOURS" 

350 PRINT 

360 REM xokxokxokskxxoksok TERMINATION POINT' xxxxxxxxxxxxxxxxxxxxx 

370 STOP 

380 REM *)o<xoo<>k»:>k;o;;iok DATA READ AREA xxxoKXxxxotoKxxxoKxxxoioK. 

390 RESTORE 

40 FOR I = 1 TO 50 

410 READ T04fTl 

420 IF TO* = "END" THEN 510 

430 Nl-Nl+i 

440 IF SO <> 1 THEN 460 

450 PRINT N15". "JT0*yTlf" HOURS" 

460 IF Tl > M0 THEN 500 

470 N-N+l 

480 IF P-'O THEN 500 

490 IF N==Z THEN 520 

500 NEXT I 

510 P=l 

520 RETURN 

530 REM *SKX*>KJiOK)iOK;K DATA ENTRY AREA *)K*)K)K!K*ifO<xe>K:toi(iK*;ociioic:K)KK>K;K 

540 DATA TASK 1*10 

550 DATA TASK Z> 3 

560 DATA TASK 3» 88 

570 DATA TASK 4s- 4 

580 DATA TASK 5» 7 

590 DATA TASK 6, .1.9 

600 DATA TASK 7*6 

610 DATA TASK 8> 4 

620 DATA END? 



RUN 

WOULD YOU LIKE TO REVIEW THE JOBS AVAILABLE <Y OR N )? 

? Y 



1 


e 


TASK 


1 


10 


HOURS 


1 


* 


TASK 


2 


3 


HOURS 


3 


♦ 


TASK 


3 


88 


HOURS 


4 


• 


TASK 


4 


4 


HOURS 


5 


• 


TASK 


5 


7 


HOURS 


6 


» 


TASK 


6 


19 


HOURS 


7 


♦ 


TASK 


7 


6 


HOURS 


3 


* 


TASK 


8 


4 


HOURS 



DO YOU HAVE A TIME LIMITATION ( Y OR N>? 
? Y 

ENTER THE MAXIMUM TIME AVAILABLE (IN HOURS) 
? 5 
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3 JOBS ARE AVAILABLE FOR SELECTION 
DATA RECORD 2 HAS BEEN SELECTED 

DESCRIPTION TASK 2 - TIME ALLOWED} 3 HOURS 

BREAK IN 370 



RUN 

WOULD YOU LIKE TO REVIEW THE JOBS AVAILABLE <Y OR N )? 

? N 

DO YOU HAVE A TIME LIMITATION ( Y OR N>? 

? N 

8 JOBS ARE AVAILABLE FOR SELECTION 
DATA RECORD 3 HAS BEEN SELECTED 

DESCRIPTION TASK 3 - TIME ALLOWED! 88 HOURS 

BREAK IN 370 



MAJOR SYMBOL TABLE - JOB- JAR 

x j 

I NAME . . DESCRIPTION I 

I j 

SEED FOR RANDOM NUMBER GENERATOR I 

COUNTER FOR NUMBER OF PASSES I 

NUMBER OF JOBS AVAILABLE I 

AVAILABLE TIME I 

GENERATED RANDOM NUMBER I 

RECORD NUMBER I 

TIME OF JOB IN I 

DESCRIPTION OF JOB IN I 

j 

FUNCTIONS USED 

j j 

I NAME .. DESCRIPTION I 

X j 

I INT .. CONVERTS NUMBER TO INTEGER I 
I RND . . GENERATES A RANDOM NUMBER I 

I GOSUB .. BRANCHES TO AND RETURNS I 

X j 



I 


Y 


I 


P 


I 


N 


I 


MO 


I 


7. 


I 


Nl 


I 


Tl 


I 


T0$ 
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CHORES 

Description 

The computer becomes the perfect arbitrator of the question, "Whose 
turn is it to do the dishes?" This program produces a weekly schedule 
of all chores and individuals responsible for each. 

Functions of the Program 

This program accepts a cycle number from the keyboard and schedules 
the next person to perform each chore, a schedule based upon an equal 
sharing by all individuals eligible for the task. Consecutive cycle num- 
bers must be used to insure equitable scheduling. Tasks are entered as 
either the responsibility of one person or the responsibility of all. The 
schedule is produced, and a checklist is provided, for a week at a time. 

Instructions for Use 

Determine the tasks that are required, the days of the week that they 
are to be accomplished on, and the individuals eligible to be scheduled 
for that task. 

Data Entry 

All data is entered by means of DATA statements except for the cur- 
rent cycle number. 

Data Formats 

Two formats are available: 

1. Tasks are identified by the following format: 

Task type, Task name, 
Y or N (for each of the seven days of the week, Sunday first) 
A Y (yes) entry for a day indicates that the task is to be per- 
formed on that day. For example: Y,N,N, Y, N,N,Y indicates 
that the task is to be performed on Sunday, Wednesday, and Satur- 
day. Task types are either "*" or "A." The "*" indicates that the 
task is to be shared by the individuals following the item. The "A" 
indicates that the task is to be performed by all individuals. See 
example. 

2. Following each task record, a list of the individuals is provided in 
the following form: 

N, Name of the individual 

Output Description 

See example provided. The results are printed for one week at a time. 
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20 REM HOUSEHOLD CHORES - BASIC 

30 REM soiotoKJiOKXOKXOKisoKJioxjK DATA INITIATION xokxokxokxokjiokxoksok 

40 Ml =7 

50 DIM N*<10> 

60 DIM DO* (7) 

70 DO* <1)="SUN" 

80 D0$ <2)=="M0N" 

90 DO* <3)="TUE" 

100 DO* <4> = "WED" 

110 DO* <5)~"THU" 

120 DO* C6>="FRI" 

130 DO* C7>="SAT" 

140 X*~" 

150 PRINT "SPACE TO TOP OF PAGE" 

160 INPUT G* 

170 PRINT "ENTER CURRENT CYCLE NUMBER" 

130 INPUT Y 

190 Y=Y-1 

200 IF Y<0 THEN 170 

210 PRINT 

220 REM xoKXOKXoosoKjfOK*:* PROCESSING LOOP xoKSCXCKxaoKKXcaoKKXcxx 

230 GOSUB 510 

240 GOSUB 580 

250 GOSUB 650 

260 FOR I = 1 TO 25 

270 IF T*="END" THEN W0 

280 T1*=T* 

290 READ C*jD*<l) ! .D*(2)).D*(3) i .D*!;^) ! .D*C5)yD*(6)! l D*<:7J 

300 GOSUB 650 

310 PRINT 

320 PRINT C*? 

330 IF Tl*<> "A" THEN 370 

340 S=l 

350 N=K1 

360 GOTO 390 

370 N=Y-K1*INT<Y/K1J+1 

380 S=N 

390 FOR J= S TO N 

400 FOR L= 1 TO 7 

tlO IF D*<L) <>"Y" THEN 430 

420 PRINT TAB(L>k8~1)?"()"5N*(J)? 

430 NEXT L 

440 PRINT 

450 NEXT J 

460 PRINT 

470 GOSUB 580 

480 NEXT I 

490 REM JocxoKJtoKHOKXoxxoK PROGRAM TERMINATION POINT JtcJocxoKxcxaotcxoKaoK 

500 STOP 

510 REM HOKXotcxxiifOKaoKW PRINTS HEADINGS mcxokxokxokxokhokxok* 

520 PRINT X*? 

530 FOR 1=1 TO 7 

540 PRINT ■ "?D0* <I) t" " i 

550 NEXT I 

560 PRINT 

570 RETURN 

580 REM hokwkxokjocxox* PRINTS SCHEDULE OUTLINE xxxxxxxxxxx 

590 PRINT X*; 

60 FOR I = 1 TO Ml 

610 PRINT "I "? 

620 NEXT I 

630 PRINT "I" 

640 RETURN 

650 REM acx************ DATA READ PROCEDURES xxxxxxxxxxxx 
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660 
670 
690 
690 
700 
710 
720 
730 
7-10 
750 
760 
770 
780 
790 
800 
BIO 
820 
830 
8^0 
850 
860 
870 
880 
890 
900 
910 



FOR l<= 1 TO 25 
READ T$ 
IF T* <> "N" 
READ Niii<K) 

NEXT K 

Kl=K-i 

RETURN 

REM jkxjkhsxxsiokjk 



THEN 7:.0 



DATA ENTRIES FOLLOW xocxoKHOKSOKScxcsoKsofOfOKSOK* 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



* y CHORE 
Nf JXM 
Ni' CHUCK 
N r MARY 
** CHORE 
Nf JUDY 
Ni-MARY 
A f CHORE 
Ni-MARY 
N» JUDY 
NfJXM 
Nf CHUCK 
** CHORE 
NpJUDY 
NfMARY 
Nf JXM 
Nf CHUCK 
END 



IcYfYfYfYfYfYyY 



-YfNvYfHfYfNfY 



3fYfYfYfYfYfYfY 



^fNfNfNfNfNfNfY 



RUN 

SPACE TO TOP OF PAGE 

■? 

ENTER CURRENT CYCLE NUMBER 

? 4 



SUN MON TUE WED THU FRI SAT 

i 1 1 1 I 1 1 1 

CHORE 1 OJIM OJIM OJIM OJIM OJIM OJIM OJIM 

! 1 1 1 I I 1 1 

CHORE 2 OMARY OMARY OMARY OMARY 

X X 1 1 1 1 1 1 

CHORE 3 OMARY OMARY OMARY OMARY OMARY OMARY OMARY 

OJUDY OJUDY OJUDY OJUDY OJUDY OJUDY OJUDY 

OJIM OJIM OJIM OJIM OJIM OJIM OJIM 

O CHUCK <) CHUCK O CHUCK O CHUCK O CHUCK O CHUCK O CHUCK 

! 1 1 1 1 1 1 1 

CHORE 4 O CHUCK 

. j 1 1 1 1 1 1 1 

BREAK IN 500 
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MAJOR SYMBOL TABLE - CHORES 

! 

I NAME .. DESCRIPTION 



D*< ) 

N$< ) 

DO$< ) 

Y 

T$ 

Tl* 

C$ 



ARRAY OF TASK INDICATORS 

NAME ARRAY 

DAY OF WEEK ARRAY 

CYCLE NUMBER 

TASK CODE 

TASK CODE 

TASK NAME 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



TAB .. FORMATS PRINT LINES 

INT . . CONVERTS NUMBER TO INTEGER 

GOSUB . , BRANCHES TO AND RETURNS 

DIM .. SINGLE DIMENSION ARRAYS 
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LAWN/PLANT CARE 

Description 

This gardener's assistant identifies and prints the scheduled daily and 
monthly gardening tasks for the specified times requested. 

Functions of the Program 

The program produces outputs of monthly calendars beginning with the 
specified month and continuing for the number of months requested. 
The major processing loop calls various subroutines to perform the for- 
matted printing of the calendar. Note that the data is supplied in two 
sections. The first section identifies tasks that are scheduled for specific 
dates, and the second supplies tasks that are scheduled for the month 
only. 

Instructions for Use 

Enter scheduled items as data prior to running the program. 

Data Entry 

Data is entered by means of DATA statements. 

Data Formats 

1. Tasks that are scheduled for a specific date are entered as: 

Month, Date, Abbreviated description, Extended description 

2. Tasks that are identified for the month only are entered as: 

Month, Task description 

Output Description 

See example provided. 



20 REM LAWN/CARE SCHEDULE: PROGRAM 

30 REM jk************ DATA INITIALIZATION Mo**;***********;* 

40 N=0 

50 S0=0 

60 L0=0 

70 m-7 

80 HZ--7 

90 M4=l 

100 DIM DO* <7> 

110 DIM NO <12) 

120 DIM M0* <12> 

130 DIM D6$<7> 

140 DIM 07 (7 > 

150 READ D0*(l)»C)0*<2)rD(l*(3)jDO*<4)fD0*(5)i-D0*<6)rDO*(7) 

J. 60 FOR I = 1 TO 12 

170 READ M0*(I>»N0CI> 
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ISO NEXT I 

190 FOR X = 1 TO 7 

200 D6'Mi:> = " 

210 NEXT I 

220 PRINT "ENTER THE FIRST MONTH AND YEAR TO BE PRINTED I,E.» JAN? I960" 

230 INPUT M*rYl 

2-40 PRINT "ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH STARTS ON" 

250 INPUT Dl* 

260 PRINT "ENTER THE NUMBER OF MONTHS TO BE PRINTED I.E. p 10" 

270 INPUT N 

280 PRINT "DO YOU WANT PAGE ALIGNMENT ( Y OR N )?" 

290 INPUT A:l$ 

300 IF Alif <> "Y" THEN 330 

310 PRINT "BEFORE THE PRINTING OF EACH MONTH A "? ' WILL APPEAR" 

320 PRINT "ALIGN TO THE TOP OF PAGE BEFORE PRESSING THE RETURN" 

330 FOR I = .1. TO 12 

340 IF M$ <> MOitKI) THEN- 360 

350 m=x 

360 NEXT I 

370 FOR K= 1 TO 7 

330 IF Dl* <> D0$<K) THEN -400 

390 S0=K 

400 NEXT K 

110 REM xjotxcxjioisaoie F'ROCESSTNG LOOP xoKxcxoKxoicfOKiiOKjfOKSOKaoKXOK 

420 FOR 12 = M4 TO M4+N--1 

430 N(K2>=28 

440 Y=Y1 

f50 IF INT(Y/1)OY/1 THEN 470 

460 NO (2 > =29 

f70 10=0 

430 M3=I2 

490 IF M3 <= 12 THEN 550 

500 M3=M3--12 

510 Y==Y1+1 

520 IF INT <Y/4)OY/4 THEN 540 

530 N0(2>=29 

540 GOTO 490 

550 IF SO = THEN 760 

560 GOSUB BOO 

570 FOR J = 1 TO M2 

580 GOSUB 90(1 

590 FOR K = 1 TO 7 

600 Nl* <K> - " 

610 NEXT K 

620 IF N0<M3> < 10 THEN 740 

630 GOSUB 960 

640 FOR L = 1 TO 10 

650 GOSUB 1330 

660 IF LI <> THEN 70 

670 GOSUB 1220 

680 GOSUB 1220 

690 GOTO 730 

70 GOSUB 1220 

710 L0=L0+1 

720 NEXT L 

730 NEXT J 

740 REM xxofOKHOKHOKiocxoKsc PROGRAM TERMINATION POINT aoKaotcaoKxoicsoKifOK 

750 GOSUB 1550 

760 IF S0O8 THEN 780 

770 50=1 

780 NEXT 12 

790 STOP 

800 REM hokjoookjo:**;* PRINTS HEADINGS aocxoKaosjioKSOKSOKiK 

810 IF A.I.* <> "Y" THEN 830 
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820 INPUT X* 

830 PRINT' 

8-9 PRINT " " i M «• < M3 > » " " ? Y 

850 FOR I = .1. TO 7 

860 PRINT " "J DO* (I) J" "f 

870 NEXT I 

880 PRINT 

890 RETURN 

900 REM JOiiiOKSOKraoiox*: PRINTS SCHEDULE OUTLINE xsoKXOKXOKXOioKiKXC 

910 FOR I = 1 TO Ml 

920 PRINT "I "f 

930 NEXT I 

940 PRINT "I" 

950 RETURN 

960 REM xoKKXiWKXOK PRINT'S CALENDAR DAY LINE wjfOKSOKSOKXOK* 

970 FOR I = 1 TO Ml 

980 IF JO 1 THEN 1010 

990 IF I <> SO THEN 1010 

1000 10=1 

1010 IF NO (MS') >= 10 THEN 1050 

1020 PRINT "I "5 

1030 10=10+1 

1040 GOTO 1170 

.1.050 IF 10 > 9 THEN 1130 

1060 IF 10 <> THEN 1090 

1070 PRINT "I "5 

1080 GOTO 1170 

1090 PRINT "I •tXQt" "? 

1100 10=10+1 

1110 SI =1+1 

1120 GOTO 1170 

1130 PRINT "I "SI'Of" "5 

1140 SI = 1+1 

1150 10=10+1 

1160 30=1+1 

1170 NEXT I 

1180 PRINT "X" 

1190 L0=0 

120 30=51 

1210 RETURN 

1220 REM xxxxxxxxxox VERTICAL LINES xxok;<ok;«>k;iok>ioic;«ok:»c*;(OK 

1230 FOR 1=1 TO Ml 

1240 IF D6* <!') = " " THEN 1290 

1250 PRINT "I" fD6*<I)» " "> 

1260 D6*(I)=" 

1270 D7<I)=0 

1280 GOTO 130 

1290 PRINT "I "t 

130 NEXT I 

1310 PRINT "I" 

1320 RETURN 

1330 REM He************ REVIEWS SCHEDULE ITEMS >k;iok:ioicsok:«xc*: 

1340 RESTORE 

1350 L1=0 

1360 FOR I = 1 TO 31 

1370 READ X$ 

1380 NEXT I 

1390 FOR 1= 1 TO 100 

140 READ M3$ 

1410 IF M3*='END" THEN 1540 

1420 READ D3»D4*fD5* 

1430 IF D3 > N0<M3> THEN 1530 

1440 IF M3* <> M0*(M3) THEN 1530 

1450 IF D3 >=•• 10 THEN 1530 
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1460 
1-470 
1480 
1-490 
150 
1510 
1520 
.1.530 
1540 
1550 
1560 
1570 
1580 
1590 
160 
1610 
1620 
1630 
1640 
1650 
1660 
1670 
1680 
1690 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
IS 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1890 
190 
1910 
1920 
1930 
1940 



IF D3 < 10 --7 THEN 1530 

XI -■■ D3--I0+8 

D7<X1) = 1+D7(.X.U 

IF D7<11.)<- L0 THEN 1530 

IF 06!|;<X1> <> " « THEN 1530 

D6$(X:U=D4* 

LI == 1 
NEXT I 
RETURN 

REM aoKSOKaoKxoK** DETAILED PRINT OF' SCHEDULE 
PRINT 

PRINT M0* CMS > 
RESTORE 
FDR I = 1 TO 31 

READ X* 
NEXT I 
FOR I = 1 TO 100 

READ M3* 

IF M3* ="END° THEN 1690 

READ D3yD4*fD5iP 

IF M3* <> M()*<M3) THEN 1680 

PRINT D3yD4$yD5* 
NEXT' I 
PRINT 

PRINT " MONTH'S TASKS " 
FOR X = 1 TO 100 

READ M3* 

IF M3$~"END" 

READ D5* 

IF M3*OM0*(M3) 

PRINT D5* 
NEXT X 
RETURN 

REM hokxoksokjochok DATA FOR INITIALIZATION 
DATA SUN y MON y TUE y WED , THU y FRX y SAT 
DATA JAN, 31 y FEB y 28, MAR, 31, APR, 30, MAY, 31 yJUNy 30 
DATA JUL. ,31 , AUG, 31 y SEP? 30 , OCT, 31 y NOV? 30 y DEC y 31 
REM JiOKaoKHOKxoKxoK DATA ENTRIES FOLLOW xxxxxxxxxxxxxxxxxx 
DATA APR, ISyGARDEN, PREPARE FOR F'LANTING 
DATA APR y 20 y SEL EC T» CHOOSE SEEDS TO PLANT 
DATA APR y 25 y PLANT y PLANT CARROTS 
DATA APR? 30 y PLANT y PLANT ONIONS 
DATA MAY y 15 y PLANT y PLANT TOMATO PLANTS- 
DATA 



THEN 1780 



THEN 1770 



XXX X.XXXXXSKXXXXXX 



APRySOyF'LANT 
MAY y 15 y PLANT 
END 

Fs'EM XXOKXOKXOKSOKXJKiK 

DATA APR, SEED LAWN 
DATA MAY y FERTILIZE YARD 
DATA APR y ROLL LAWN 
DATA END 



MONTH'S TASKS FOLLOW xxxxxxxxxxxxx 



RUN 

ENTER THE FIRST MONTH AND YEAR TO BE PRINTED I.E.* JAN, 1980 

? APR y 1980 

ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH STARTS ON 

? TUE 

ENTER THE NUMBER OF MONTHS TO BE PRINTED I.E., 10 

? 1 

DO YOU WANT PAGE ALIGNMENT < Y OR N >? 

? N 
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APR 1980 
SUN MON TUE WED THU FRI SAT 

I 1 1 1 1 1 1 1 

I I I1I2I3I4I5I 

I I I I I I I I 

I I I I I I I * 

I 1 1 1 1 1 1 1 

I 6 I 7 I 8 I 9 I 10 I 11 I 12 I 

I I I I I I ! J 

I I I I I I I I 

j 1 1 1 1 1 1 1 

I 13 I 14 I 15 I 16 I 17 I 18 I 19 I 
III GARDEN I I I I I 

I I I I I I I l 

I I I I I I I I 

x 1 1 1 1 1 1 1 

I 20 I 21 I 22 I 23 I 24 I 25 I 26 I 
I SELECT I I I I I PLANT I I 

IIIIII 11 
I I I I I I I : 

j 1 1 1 1 1 1 1 

I 27 I 28 I 29 I 30 I I I I 

I I I I PLANT I I I I 

I I I I I I I X 

I I I I I I I I 

I 1 1 1 1 1 1 1 



APR 






15 


GARDEN 


PREPARE FOR PLANTING 


20 


SELECT 


CHOOSE SEEDS TO PLANT 


25 


PLANT 


PLANT CARROTS 


30 


PLANT 


PLANT ONIONS 



MONTH'S TASKS 
SEED LAWN 
ROLL LAWN 



MAJOR SYMBOL TABLE - LAIJN/PLANT CARE 



I 


NAME 


» 


DESCRIPTION 


I 


I 


D0*< ). 


, 


DAYS OF WEEK- 


I 


I 


N0< ) 


» 


NUMBER OF DAYS IN MONTH 


I 


I 


M0$( ) 


4 


NAMES OF MONTHS 


I 


I 


D6$( ). 


♦ 


TASK PRINT ARRAY 


I 


I 


D7< ) . 


4 


COUNT ARRAY 


I 


I 


M$ 


* 


FIRST MONTH TO PRINT 


I 


I 


Yl 


# 


FIRST YEAR TO PRINT 


I 


I 


ni* 


, 


STARTING DAY OF WEEK 


I 


I 


N 


• 


NUMBER OF MONTHS 


I 


I 


10 


* 


DAY OF THE MONTH 


I 


I 


M3S 


* 


MONTH IN 


I 


I 


D3 


* 


DAY IN 


I 


I 


El 4$ 


t 


TASK ITEM IN 


I 


I 


115* 


► * 


TASK DESCRIPTION IN 


I 
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FUNCTIONS USED 

! j 

I NAME .. DESCRIPTION I 

X j 

I INT . . CONVERTS NUMBERS TO INTEGER I 
I GOSUB .. BRANCHES TO AND RETURNS I 
I DIM ., SINGLE DIMENSION ARRAYS I 

I 1 
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CHRISTMAS CARDS 

Description 

This program records addresses for Christmas cards and letters and 
identifies those that have been sent or received. 

Functions of the Program 

The program reads names, addresses, and sent/received indicators and 
then prints a formatted listing for use in addressing and mailing your 
Christmas cards. 

Instructions for Use 

Enter your Christmas card list prior to running the program. Maintain 
the data entries for use in determining next year's mailing requirements, 
adding and deleting from the list as necessary. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The data is formatted as follows: 

Name, Street address. City, State, Zip, Sent, Received 

Output Description 

See example provided. 

Comments 

You may not wish to use the sent/received portion of the program. This 
function can be eliminated easily from the program (check lines 140, 
150, and 220-260). 



20 REM CHRISTMAS CARD LIST PROGRAM - BASIC 

30 REM **«#** DATA INITIALIZATION AREA ###*#*##«*«### 

40 M=1000 

50 S=l 

60 PRINT 

70 REM *«###»# PROCESSING AREA #**###«**«*##«:««« 

80 PRINT 

90 PRINT " SENT RCVD" 

100 FOR I = 1 TO M 

110 Al$=" " 

120 A2$=" " 

130 READ N$ 
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140 IF N$ ="Y" THEN 220 

150 IF N$="N* THEN 230 

160 IF S <> 1 THEN GOSUB 300 

170 IF N$=°END° THEN 380 

180 S=0 

190 N1$=N$ 

200 READ S1$,-S2**S3*7Z$ 

210 GOTO 280 

220 A1*=N$ 

230 READ m 

240 S=0 

250 IF N*<>"Y" THEN 270 

260 A2$=N$ 

270 GOTO 130 

280 NEXT I 

290 REM ********** PRINT SUBROUTINE *************** 

300 PRINT ■ (°5A1$?"> ( • i A2$? • ) ■ f TABC 10) JN1*J " "i 

310 PRINT TAB(30)5S1* 

320 PRINT TAB<30)S2$5" "?S3*7" a JZ$ 

330 PRINT 

340 K=K+1 

350 S=l 

360 RETURN 

370 REM ********* PROGRAM TERMINATION POINT ***************** 

380 PRINT 

390 PRINT 

400 PRINT 

410 PRINT "NUMBER OF ENTRIES - "?K 

420 PRINT 

430 STOP 

440 REM ********** DATA ENTRIES FOLLOW ******************** 

450 DATA JIM ANYNAME*111 ANYSTREET* ANYTOWN* ANYSTATE »00000 

460 DATA Yf 

470 DATA JUDY D0E*432 ANOTHER STREET? ANOTHER TOWN jSTATEf 11111 

480 DATA N»N 

490 DATA TOM AND JUDY F0RREST»444 WILLOW AVErLUMBERTOWN? ALASKA? 44444 

500 DATA N*Y 

510 DATA END 



RUN 



SENT RCVD 

(Y) ( ) JIM ANYNAME 111 ANYSTREET 

ANYTOWN ANYSTATE 00000 

< ) ( ) JUDY DOE 432 ANOTHER STREET 

ANOTHER TOWN STATE 11111 

( ) (Y) TOM AND JUDY FORREST 444 WILLOW AVE 

LUMBERTOWN ALASKA 44444 



NUMBER OF ENTRIES 
BREAK IN 430 
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MAJOR SYMBOL TABLE - CHRISTMAS CARDS 

! , 1 

I NAME .. DESCRIPTION I 

I 1 

I M . . MAXIMUM NUMBER OF DATA READS I 

I N$ . . NAME/SENT-RCVD INDICATOR I 

I Nl* .. NAME I 

I SI* .. STREET ADDRESS I 

I S2* .. CITY ADDRESS I 

I S3$ .. STATE ADDRESS I 

I Z* .. ZIP CODE I 

I Al$ .. CARD SENT INDICATOR FOR PRINTING I 

I A2$ .. CARD RCVD INDICATOR FOR PRINTING I 

I 1 

FUNCTIONS USED 

! 1 

I NAME .. DESCRIPTION I 

! 1 

I TAB ., FORMATS PRINT LINES I 

! 1 
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ADDRESSES - VERSION 1 

Description 

This program produces address listings without all of the frills for you. 
It is the simplest version of the three programs provided in this book. 

Functions of the Program 

Addresses are read from DATA statements and are printed in a simple 
mailing label form. 

Instructions for Use 

Enter the addresses in the form shown prior to running the program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

The first record of the data contains the number of lines for spacing 
purposes. Its form is: 

Number of lines 
The remaining records are of the form: 

Number of lines in address, Line 1, Line 2, etc. . . . 

Output Description 

See example provided. Output is in mailing label format. 

Comments 

Instructions are contained in the program. 



.10 REM NAMELST1 PROGRAM 

20 N=35000 

30 PRINT "WOULD YOU LIKE TO SEE INSTRUCTIONS" 

40 INPUT 6* 

50 IF G$="N" THEN .130 

60 PRINT "THIS PROGRAM PRODUCES ALPHABETIC LISTINGS OF NAMES AND" 

70 PRINT "ADDRESSES PROVIDED IN DATA STATEMENTS. TO ENTER THE DATA" 

80 PRINT "ENTER THE NAMES AND ADDRESSES BEGINNING IN LINE" 

90 PRINT "NUMBER 1000. FOR EVERY NAME ENTER THE NUMBER OF LINES OF 1 

100 PRINT "INFORMATION THAT IT WILL INCLUDE. AT LINE NUMBER 999" 

110 PRINT "ENTER THE * OF LINES FOR PAPER MOVEMENT" 

120 PRINT'END YOUR DATA ENTRIES WITH A DATA CARD." 

130 REM ************ ENTRY OF NUMBER TO PRINT ***************** 

140 READ N2 

150 PRINT "POSITION PAPER NOW" 

160 INPUT G* 

170 FOR 1= 1 TO N 



List Programs for Every Purpose 147 



180 READ Nl 

190 IF N1=0 THEN 310 

200 FOR J= 1 TO Nl 

210 READ G* 

220 PRINT G$ 

230 NEXT J 

240 IF Ni>= N2 THEN 280 

250 FOR K= Nl+1 TO N2 

260 PRINT 

270 NEXT K 

280 NEXT I 

290 REM ************ TERMINATION POINT ******************** 

300 PRINT 1-1 B RECORDS WERE PRINTED" 

310 STOP 

320 REM *********»!*****************************#********#***#****** 

330 REM 

340 REM EXAMPLE DATA FORMATION FOLLOWS 

350 REM 

360 REM *********************************************************** 

370 REM LINE 999 CONTAINS # OF LINES FOR PAGE MOVEMENT 

380 REM LINES 1000 AND 1004 CONTAIN THE # OF LINES IN THE ADDRESSES 

999 DATA 6 

1000 DATA 3 

1001 DATA "JOHN D. DOE' 

1002 DATA "555 SMOKEY DRIVE" 

1003 DATA "GROTQN» MASS 87878" 

1004 DATA 4 

1005 DATA "JOSEPH R. WESTONBY" 

1006 DATA "APARTMENT 4C" 

1007 DATA "456 EASERLY ROAD" 

1008 DATA'TAYLORSVILLE* MAINE 23234" 

1009 DATA 

RUN 

WOULD YOU LIKE TO SEE INSTRUCTIONS 



THIS PROGRAM PRODUCES ALPHABETIC LISTINGS OF NAMES AND 

ADDRESSES PROVIDED IN DATA STATEMENTS. TO ENTER THE DATA 

ENTER THE NAMES AND ADDRESSES BEGINNING IN LINE 

NUMBER 1000, FOR EVERY NAME ENTER THE NUMBER OF LINES OF 

INFORMATION THAT IT WILL INCLUDE. AT LINE NUMBER 999 

ENTER THE * OF LINES FOR PAPER MOVEMENT 

END YOUR DATA ENTRIES WITH A DATA CARD. 

POSITION PAPER NOW 

t 



JOHN D. DOE 

555 SMOKEY DRIVE 

GROTON* MASS 87878 



JOSEPH R. WESTONBY 
APARTMENT 4C 
456 EASERLY ROAD 
TAYLORSVILLEi- MAINE 23234 



BREAK IN 310 
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MAJOR SYMBOL TABLE - ADDRESSES - VERSION 1 

I j 

I NAME .. DESCRIPTION I 

I j 

IN .. MAXIMUM NUMBER OF DATA READS I 
I N2 .. NUMBER OF LINES FOR PAPER MOVEMENT I 
I G$ .. TEXT INFORMATION IN I 

I Nl .. NUMBER OF LINES IN THE ADDRESS I 

I j 
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ADDRESSES -VERSION 2 

Description 

This version of the addressing program allows the selected printing of 
the records in groups. 

Functions of the Program 

The program prints the record numbers (inclusive) requested during the 
question/answer sequence. The records preceding the specified start 
point are ignored, and the program terminates after it has completed 
the printing of the last record requested. 

Instructions for Use 

Enter the addresses as data prior to running the program. 

Data Entry 

All data is entered as DATA statements. 

Data Formats 

The first data record is the number of lines for spacing purposes. Its 
form is: 

Number of lines for each record print 
The remaining records in the data are of the following form: 
Number of lines in address, Line 1, Line 2, etc. . . . 
Note the card to identify the end of the data. 

Output Description 

See example provided. 

Comments 

Instructions are provided in the program. 



10 REM NAMELST2 PROGRAM 

20 LET N=3500 

30 PRINT "WOULD YOU LIKE TO SEE INSTRUCTIONS' 

40 INPUT G$ 

50 IF G$="N" THEN 140 

60 PRINT "THIS PROGRAM PRODUCES ALPHABETIC LISTINGS OF NAMES AND" 

70 PRINT 'ADDRESSES PROVIDED IN DATA STATEMENTS, TO ENTER THE DATA' 

80 PRINT "ENTER THE NAMES AND ADDRESSES BEGINNING IN LINE" 

90 PRINT 'NUMBER 1000. FOR EVERY NAME ENTER THE NUMBER OF LINES OF' 

100 PRINT "INFORMATION THAT IT WILL INCLUDE. AT LINE NUMBER 999" 

110 PRINT "ENTER THE NUMBER OF LINES FOR PAPER MOVEMENT." 

120 PRINT "END YOUR DATA ENTRIES WITH A DATA CARD." 
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130 PRINT 

140 REM ************ ENTRY OF NUMBER TO PRINT ***************** 

150 READ N2 

160 PRINT "RECORDS ARE TO BE PRINTED "N2" LINES EACH" 

170 PRINT'DO YOU WANT TO PRINT ALL OF THE RECORDS' 

180 INPUT G$ 

190 IF G$="Y" THEN 310 

200 PRINT "ENTER STARTING AND ENDING RECORD NUMBERS (IE 4>55>" 

210 INPUT N0>N3 

220 LET N=N3-N0U 

230 REM SKIP APPROPRIATE # OF RECORDS 

240 IF N0=<1 THEN 310 

250 FOR I = 1 TO NO-1 

260 READ Nl 

270 FOR J= 1 TO Nl 

280 READ G$ 

290 NEXT J 

300 NEXT I 

310 PRINT "POSITION PAPER NOW" 

320 INPUT G* 

330 REM OUTPUT OF RECORDS 

340 FOR 1= 1 TO N 

350 READ Nl 

360 IF N1=0 THEN 470 

370 FOR J= 1 TO Nl 

380 READ G$ 

390 PRINT G$ 

400 NEXT J 

410 IF Nl>= N2 THEN 450 

420 FOR K= Nl+1 TO N2 

430 PRINT 

440 NEXT K 

450 NEXT I 

460 REM ************ TERMINATION POINT ******************** 

470 PRINT 1-1 "RECORDS WERE PRINTED" 

480 STOP 

490 REM************************************************************ 

500 REM 

510 REM DATA ENTRIES FOLLOW 

520 REM************************************************************ 

530 REM LINE 999 CONTAINS # OF LINES FOR PAGE MOVEMENT 

540 REM LINES 1000 AND 1004 CONTAIN THE # OF LINES IN THE ADDRESSES 

999 DATA 6 

1000 DATA 3 

1001 DATA "JOHN D. DOE" 

1002 DATA "555 SMOKEY DRIVE' 

1003 DATA "GROTON, MASS 87878' 

1004 DATA 4 

1005 DATA "JOSEPH R. WESTONBY" 

1006 DATA "APARTMENT 4C" , 

1007 DATA "456 EASERLY ROAD" 

1008 DATA"TAYLQRSVILLE> MAINE 23234" 

1009 DATA 1,"REC0RD3" 

1010 DATA 1 ?"REC0RD4" 

1011 DATA 1 ," RECORDS " 

1012 DATA lf"REC0RD6" 

1013 DATA 1," RECORD? ■ 

1014 DATA' 1- RECORDS 

1015 DATA 1>REC0RD9 

1016 DATA 1>REC0RD10 

1017 DATA 1, RECORD 11 

1018 DATA 1»REC0RD12 

1019 DATA 
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RUN 

WOULD YOU LIKE TO SEE INSTRUCTIONS 

? N 

RECORDS ARE TO BE PRINTED 6 LINES EACH 

DO YOU WANT TO PRINT ALL OF THE RECORDS 

? N 

ENTER STARTING AND ENDING RECORD NUMBERS (IE 4»55> 

'? 2.4 

POSITION PAPER NOW 

9 



JOSEPH R. WESTONBY 
APARTMENT 4C 
456 EASERLY. ROAD 
TAYLORSVILLE? MAINE 23234 



REC0RD3 



RECORD 4 



3 RECORDS WERE PRINTED 
BREAK IN 480 



MAJOR SYMBOL TABLE 



ADDRESSES 



VERSION 2 



I NAME 



DESCRIPTION 



N 

Nl 

N2 

NO 

N3 

G$ 



MAXIMUM NUMBER OF DATA READS 
NUMBER OF LINES FOR THE ADDRESS 
NUMBER OF LINES FOR PAPER MOVEMENT 
STARTING RECORD NUMBER 
ENDING RECORD NUMBER TO PRINT 
ADDRESS LINE IN 
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ADDRESSES - VERSION 3 

Description 

This version allows individualized print formats and provides test print 
patterns for verification and alignment. 

Functions of the Program 

The program determines, through the question and answer sequence, 
the format of the printed output. Test prints are then provided for 
verification and alignment. 

Instructions for Use 

Address items are entered as data prior to running the program. 

Data Entry 

All data is entered as DATA statements. 

Data Format 

The single format used is: 

Number of lines in address, Line 1, Line 2, etc. . . . 

Output Description 

See example provided. Output format is uniquely specified by your 
selections, however. 



10 REM NAMELST3 PROGRAM 

20 LET N3=5000 

30 PRINT "WOULD YOU LIKE TO SEE INSTRUCTIONS" 

40 INPUT G* 

50 IF G$="N" THEN 130 

60 PRINT "THIS PROGRAM PRODUCES ALPHABETIC LISTINGS OF NAMES AND" 

70 PRINT "ADDRESSES PROVIDED IN DATA STATEMENTS. TO ENTER THE DATA" 

80 PRINT "ENTER THE NAMES AND ADDRESSES BEGINNING IN LINE" 

90 PRINT "NUMBER 2000. FOR EVERY NAME ENTER THE NUMBER OF LINFS OF" 

100 PRINT "INFORMATION THAT IT WILL INCLUDE." 

110 PRINT "END YOUR DATA ENTRIES WITH A DATA CARD." 

120 PRINT 

130 REM ************ ENTRY OF NUMBER TO PRINT ***************** 

140 PRINT 

150 PRINT "DO YOU WANT TO PRINT ALL OF THE RECORDS" 

160 INPUT G$ 

170 IF G*="Y" THEN 280 

180 PRINT "ENTER STARTING AND ENDING RECORD NUMBERS (IE 4,55) " 

190 INPUT NCN3 

200 REM ************ SKIP OF UNUSED RECORDS ********************** 

210 IF N0=<1 THEN 280 

220 FOR I = 1 TO NO-1 

230 READ Nl 

240 FOR J= 1 TO Nl 
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250 READ G* 

260 NEXT J 

270 NEXT I 

280 REM ***************** CALL TO ALIGNMENT ROUTINE *********** 

290 GOSUB 540 

300 DIM A*<N2 ? C) 

310 REM *************** OUTPUT OF GOOD RECORDS ******************** 

320 LET N=(N3+1-N0)/C 

330 FOR 1= 1 TO N 

340 FOR K=l TO C 

350 READ Nl 

360 IF N1=0 THEN 420 

370 LET R0=R0+1 

380 FOR J= 1 TO Nl 

390 READ A$<J,K) 

400 NEXT J 

410 NEXT K 

420 LET J=0 

430 LET J=J+1 

440 FOR K= 1 TO C 

450 PRINT TAB<T<K)) A*<J»K)» 

460 A$<J?K>=" " 

470 NEXT K 

480 PRINT 

490 IF J<N2 THEN 430 

500 IF N1=0 THEN 520 

510 NEXT I 

520 PRINT RO "RECORDS WERE PRINTED" 

530 STOP 

540 REM *********** PRINT ALIGNMENT ROUTINE ******************* 

550 PRINT "ENTER THE NUMBER OF VERTICAL LINES PER ADDRESS" 

560 INPUT N2 

570 PRINT "ENTER THE NUMBER OF ADDRESSES PER LINE" 

580 INPUT C 

590 DIM T<C) 

600 DIM X$(12> 

610 PRINT "ENTER THE TAB POSITIONS OF EACH COLUMN" 

620 FOR 1= 1 TO C 

630 INPUT T(I) 

640 NEXT I 

650 ■ LET X$<1) = " 11 1111111 11 111111 11111111111" 

660 LET X$ ( ^ ) — " '• > '- > ' :> '''2'' > 2'- > 222?2222222222222222 " 

670 LET X$<3^=" 3333333333333333333333333333" 

680 LET X$<4>="4444444444444444444444444444* 

690 LET X$<5)="5555555555555555555555555555" 

700 LET X$<6)="6666666666666666666666666666" 

710 LET X$(N2)="****************************" 

720 PRINT "POSITION PAPER NOW 

730 LET I0=N2 

740 INPUT G* 

750 C.1.=0 

760 FOR M=l TO 2 

770 FOR 1= 1 TO 10 

780 FOR J= 1 TO C 

790 PRINT TAB<T<J)> X$(I)5 

800 NEXT J 

810 PRINT 

820 NEXT I 

830 NEXT M 

840 PRINT "ARE THE NUMBER OF VERTICAL LINES CORRECT" 

850 INPUT V$ 

860 IF V$="Y" THEN 900 

870 PRINT'ENTER THE NUMBER OF VERTICAL LINES PER ADDRESS" 

880 INPUT N2 
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890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1035 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2020 



GOTO 710 

PRINT "ARE THE HORIZONTAL TABS CORRECT- 
INPUT H$ 

IF H$="Y" THEN 970 
PRINT "RE-ENTER TABS" 
FOR 1= 1 TO C 

INPUT T<I> 
NEXT I 

PRINT "WOULD YOU LIKE ANOTHER TEST PATTERN PRINT- 
INPUT G$ 
IF G$="Y" THEN 710 

LET Cl=Cl+6 

IF C1=2*N2 THEN 1050 

PRINT 

LET C1=C1+1 

IF C1>6*N2 THEN 1050 

GOTO 1010 

RETURN 

REM 

REM EXAMPLE DATA FORMATION FOLLOWS 

REM 

REM**********#***#******#*#*****#*##*######*^ 

REM LINES 2000 AND 2004 CONTAIN THE # OF LINES IN THE ADDRESSES 

DATA 3 

DATA "JOHN D. DOE" 

DATA "555 SMOKEY DRIVE" 

DATA "GROTONf MASS 87878" 

DATA 4 

DATA "JOSEPH R. WESTONBY" 

DATA "APARTMENT 4C" 

DATA "456 EASERLY ROAD" 

DATA'TAYLORSVILLEf MAINE 23234" 

DATA 1,"REC0RD3" 

DATA 1 , "REC0RD4" 

DATA 



RUN 

WOULD YOU LIKE TO SEE INSTRUCTIONS 

? Y 

THIS PROGRAM PRODUCES ALPHABETIC LISTINGS OF NAMES AND 

ADDRESSES PROVIDED IN DATA STATEMENTS. TO ENTER THE DATA 

ENTER THE NAMES AND ADDRESSES BEGINNING IN LINE 

NUMBER 2000. FOR EVERY NAME ENTER THE NUMBER OF LINES OF 

INFORMATION THAT IT WILL INCLUDE. 

END YOUR DATA ENTRIES WITH A DATA CARD. 



DO YOU WANT TO PRINT ALL OF THE RECORDS 

? Y 

ENTER THE NUMBER OF VERTICAL LINES PER ADDRESS 

? 5 

ENTER THE NUMBER OF ADDRESSES PER LINE 

? 2 

ENTER THE TAB POSITIONS OF EACH COLUMN 

? 1 

? 32 

POSITION PAPER NOW 

T 
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liiiiiiiiiiiiiiiiiiiiuiiiii 

' :> 2' :> 2222222222222222222222222 
3333333333333333333333333333 
4444444444444444444444444444 
**************************** 
liilllllllilllliilllllilllll. 



liilllllllilllliilllllilllll 

0'?'3'?'?22222222 2222222222 2 222 2 
3333333333333333333333333333 
4444444444444444444444444444 

**************************** 

liilllllllilllliilllllilllll 
, ?'?'?09T?222222222222222222222 
3333333333333333333333333333 3333333333333333333333333333 
4444444444444444444444444444 4444444444444444444444444444 
**************************** **************************** 

ARE THE NUMBER OF VERTICAL LINES CORRECT 

? Y 

ARE THE HORIZONTAL TABS CORRECT 

'? Y 

WOULD YOU LIKE ANOTHER TEST PATTERN PRINT 

'? N 



JOHN D. DOE 

555 SMOKEY DRIVE 

GROTONf MASS 87878 



JOSEPH R. UESTONBY 
APARTMENT 4C 
456 EASERLY ROAD 
TAYLORSVILLE* MAINE 23234 



REC0RD3 



RECORD4 



4 RECORDS WERE PRINTED 
BREAK' IN 530 

MAJOR SYMBOL TABLE - ADDRESSES - VERSION 3 




I 


NAME 


. DESCRIPTION 


I 


I 
I 
I 
I 
I 
I 
I 
I 
I 


N3 
NO 

A$< > 
N2 
C 

Nl 
RO 
T( ) 
X$< ) 


. MAXIMUM NUMBER OF READS/END NUMBER 

♦ STARTING RECORD NUMBER 

. ADDRESS LINES 

. VERTICAL LINES PER ADDRESS 

. NUMBER OF ADDRESS PER LINE 

. NUMBER OF LINES IN ADDRESS IN 

. RECORD NUMBER PRINTED 

. TAB POSITIONS 

. LINES OF TEXT IN 


I 
I 
I 
I 
I 
I 
I 
I 
I 




FUNC 


;tions used 




I 


NAME 


. DESCRIPTION 


I 


I 
I 
I 
T- 


TAB 

GOSUB 

DIM 


, . FORMATS PRINT LINES 

. . BRANCHES TO AND RETURNS 

, . 2 DIMENSION ARRAYS 


I 
I 
I 

-I 
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RECORD LISTS 

Description 

This program maintains your record library. It identifies the records 
owned and their locations. 

Functions of the Program 

The program reads the record information from DATA statements and 
produces a list in the order specified. Multiple passes through the data 
are used for the ordering process to minimize the use of files or arrays. 

Instructions for Use 

Enter the record information prior to running the program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The form of the data is: 

Artist, Title of the record, Location 
Output Description 

See examples provided. The order of the output is determined by the 
option selected. 



20 REM RECORDS LIST PROGRAM 

30 REM a************* DATA INITIALIZATION J************** 

40 M=:l0 00 

50 PRINT "SHALL. I PRINT THE ENTRIES IN THE ORDER I HAVE THEM <Y OR N>'>" 

60 INPUT A0* 

70 IF A0$="Y" THEN J. 00 

80 PRINT "IN ORDER,* BY ARTIST <A) OR LOCATION <L) " 

90 INPUT A* 

100 PRINT 

110 PRINT 

120 PRINT 

130 IF A'J;="A" THEN290 

140 IF A$="L" THEN 590 

150 REM xxxxxxxxx PROCESSING AREA xxxxxxxxxxxxxxxxxxxxxx 

160 PRINT » ARTIST " * TAB (25)? "TITLE"? TAB ( 47) ? "LOCATION" 

170 PRINT " ■ ; TAB ( 25 ) ? " » ? TAB < 47 ) " » 

ISO FOR I == 1 TO M 

190 READ Gfc 

200 IF G$ =:"END" THEN 240 

210 READ T*»L* 

220 PRINT G*?TABC25)?T!|i;TAB<47)5L* 

230 NEXT I 

240 REM He************** TERMINATION POINT x;*******:**:********: 
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250 PRINT 

260 PRINT 

270 PRINT 

280 STOP 

290 RFM J*********** ARTIST SORT AND PRINT ttxosaoKaofcXKKXWiOK***: 

300 PRINT " ARTIST " HAB C25) ? "TITLE" ,*TAB< 47)? "LOCATION" 

310 PRINT "- " JTAB<25) > " " ?TAB(47) f ■-- 

320 I = 1 

330 FOR J = 1 TO M 

3-40 READ G* 

350 IF G*="END" THEN 5.1.0 

360 READ T*s-L* 

370 IF J>I THEN -180 

380 IF J<I THEN 500 

390 S*=G* 

•WO IF I = 1 THEN 480 

410 RESTORE 

420 FOR K = :l. TO J 

^30 READ G*yT*?L* 

4-40 IF S$OG$ THEN -960 

450 C-C+J. 

460 NEXT K 

470 IF C>1 THEN 510 

480 IF G*OS$ THEN 50 

490 PRINT S*JTAE!<25) JT$fTAB(47)»L* 

50 NEXT J 

510 RESTORE 

520 C=0 

530 IF I>1 THEN550 

540 M= J-l 



55 



PRINT 



560 I = I +1 

570 IF I <== M THEN 330 

580 GOTO 240 

590 RFM *»:>k*::*;k>k;k>kx>klGCATTQN SORT AND PRINT aocsoKxwaotcxaoioKaoK 

600 PRINT "LOCATION" ?TAB(15) i "TITLE" t TAB (40 ) i "ARTIST" 

610 PRINT" ' JTAB<15) » " " »7'AB<40) i " 

620 1=1 

630 FOR J » 1 TO M 

640 READ G* 

650 IF G* =="END" THEN 810 

660 READ T*»L* 

670 IF J>I THEN 780 

680 IF J< I THEN 80 

690 B*=L* 

700 IF I = 1 THEN 780 

710 RESTORE 

720 FOR K = 1 TO J 

730 READ Gt;T$FL* 

740 IF S*OL* THEN 760 

750 C=C+1 

760 NEXT K 

770 IF C>1 THEN B10 

780 IF L*OS* THEN 80 D 

790 PRINT S*n'AB(15)fT**TAB<40)JG* 

800 NEXT J 

810 RESTORE 

820 C=<) 

B30 IF I > 1 THEN B50 

840 M=J-1 

850 PRINT 

860 I-I+l 

B70 IF I <=M THEN 630 

880 GOTO 240 
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B90 REM 



xoKXOKaofcxxxoK** DATA ENTRY FOLLOWS 



XCaOKXXaOKJfOKXOK 



900 DATA THE HORSEFLIES* BUZZIN AROUND » ATTIC 

910 DATA THE BUMBLEBEES* MAKIN HONEY r RECORD CABINET 

920 DATA THE SINGIN SONGSTRESS , HAPPY SONGS p RECORD CABINET 

930 DATA THE STATUES , QUIET SOUNDS? ATTIC 

9-tO DATA THE HORSEFLIES, VOLUME 2 f ATTIC 

950 DATA END 



RUN 

SHALL I PRINT THE ENTRIES IN THE ORDER I HAVE THEM (Y OR N)"? 
? Y 



ARTIST 



TITLE 



THE HORSEFLIES 

THE BUMBLEBEES 

THE SINGIN SONGSTRESS 

THE STATUES 

THE HORSEFLIES 



BUZZIN AROUND 
MAKIN HONEY 
HAPPY SONGS 
QUIET SOUNDS 
VOLUME 2 



LOCATION 


ATTIC 




RECORD 


CABINET 


RECORD 


CABINET 


ATTIC 




ATTIC 





BREAK IN 280 



RUN 

SHALL I PRINT THE ENTRIES IN THE ORDER I HAVE THEM (Y OR N>? 

? N 

IN ORDER} BY ARTIST (A) OR LOCATION <L) 

? A 



ARTIST 



TITLE 



THE HORSEFLIES 
THE HORSEFLIES 



THE BUMBLEBEES 

THE SINGIN SONGSTRESS 

THE STATUES 



BUZZIN AROUND 
VOLUME 2 

MAKIN HONEY 

HAPPY SONGS 

OUIET SOUNDS 



LOCATION 


ATTIC 




ATTIC 




RECORD 


CABINET 


RECORD 


CABINET 


ATTIC- 





BREAK IN 280 
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MAJOR SYMBOL TABLE 



RECORD LISTS 



I NAME 



DESCRIPTION 



M 

A$ 

G$ 

T$ 

L$ 

S* 

C 



MAXIMUM NUMBER OF DATA READS 

ORDER INDICATOR 

ARTIST 

TITLE 

LOCATION 

HOLD AREA FOR COMPARE 

COUNTER 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



TAB 



., FORMATS PRINT LINES 
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RECORD SEARCH 

Description 

This program maintains your record library and allows both the printing 
of its contents and searches for any specific artist or record title. 

Functions of the Program 

The program reads the record information from DATA statements and 
prints all records in the order specified or locates all items that match a 
selection criteria that you supply. 

Instructions for Use 

The record information must be entered as DATA statements prior to 
running the program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The format of the record inventory information is: 

Artist name, Title of record, Location 

Output Description 

See example provided. Note the various printing options that are 
available. 



20 REM RECORD SEARCH AND LIST PROGRAM 

30 REM Kaon***:** DATA INITIALIZATION Ho******* 

40 S=l 

50 M=:l.()00 

60 PRINT "SHALL I PRINT ITEMS (Y OR N>?" 

70 INPUT Al* 

80 IF A1*=°Y" THEN 1B0 

90 PRINT "WOULD YOU LIKE TO SEARCH FOR A TITLE (T), OR ARTIST <A>?» 

100 INPUT A$ 

110 IF AH>=»A" THEN 150 

120 PRINT "ENTER THE TITLE TO SEARCH FOR" 

130 INPUT S* 

1-fO GOTO 280 

150 PRINT "ENTER THE ARTIST TO SEARCH FOR" 

160 INPUT' S* 

170 GOTO 280 

180 PRINT-SHALL. I PRINT THE ENTRIES IN THE ORDER I HAVE THEM <Y OR W* 

190 INPUT AO* 

200 IF AO$="Y" THEN 230 

210 PRINT "IN ORDER i BY ARTIST <A> OR LOCATION <L> 

220 INPUT A* 

230 PRINT' 
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24 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

^20 

430 

440 

450 

460 

470 

480 

490 

50 

510 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

73 

790 

BOO 

810 

820 

830 

B40 

850 

860 

870 



ARTIST" HABC25) % "TITLE" JTABf 48) i "LOCATION" 



"J TAB (25)?' 



TO M 



THEN 420 



THEN 400 



?L* 



PRINT 

PRINT 

IF rt*-"A" THEN 560 

IF A*="L" THEN 860 

REM sow* PROCESSING AREA **>K!K>tc* 

PRINT' 

PRINT 

PRINT 

PRINT"- 

FOR 1=1 

READ G* 

IF G*="END 

READ T*»l_* 

IF M9~°Y" 

GOSUB 470 

II-- SOI THEN 410 

PRINTG* ) TAB ( 25 > i T* ? TAB < 48) 

NEXT I 

REM **** TERMINATION POINT **»;* 

PRINT- 
PRINT 

PRINT 

STOP 

REM **** SUBROUTINE TO COMPARE ITEMS **** 

S-0 

IF A*="A" 

IF T*OS* 

B=l 

GOTO 550 

IF G$OS« 

S=l 

RETURN 

REM xokhok ARTIST 

PRINT" ARTIST" 

PRINT" - 

1=1 

FOR J-X TO M 

READ G* 

IF G'*="END" 

READ T*»L* 

IF J>I THEN 

IF J<I THEN 

S*=G* 



■fTAB(48)»' 



THEN 
THEN 



530 
550 



THEN 



SORT 

»tab«.- 



AND 
25)5 



PRINT 
'TITLE' 



5 TAB < 48) "LOCATION * 



! 5TAB<25)J' 



l ;TAB(48)? 1 



THEN 780 

750 
770 



IF I 
RESTORE 
FOR K = 1 
READ G*>TH 
IF S$OG$ 
C=C+1 
NEXT K 
IF C>1 
IF G!l>< 



1 THEN 750 



TO J 

»L* 

THEN 



730 



THEN 780 

■S* THEN 770 
PRINTS'* > TAB < 25 ) t T* i TAB ( 48 ) i L 
NEXT J 
RESTORE 
C=0 

IF' I>1 THEN 820 
M=J-1 
PRINT 
1=1+1 

IF K=M THEN 60 
GOTO 420 

REM sokx* LOCATION SORT AND 
PRINT " LOCATION " t TAB (1.5)f 1 



PRINT «*»:* 
-ITLE"?TAB(42)f ' 



ARTIST 1 
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880 

890 

900 

9.1.0 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1.1.70 

11 SO 

1190 

120 

1210 

.1.220 



PRINT" 

1=1 

FOR J= 1 TO 
READ G* 

G$="£ND" 
READ 
J>I 
J<I 

I = 

tore: 



'JTABa.S)? 1 



• J TAB < 42) J' 



M 



THEN 1080 
T*»L* 
THEN 1050 
THEN 1070 

1 THEN 1050 



IF 

IF 
IF 
S*= 
IF 
RES 

FOR K- 1 TO J 
READ G*vT*i»l...$ 
IF S*OI_* THEN 1030 
C-C+l 

NEXT K 

IF C>1 THEN 1080 

XF LtOSt THEN 1070 

PRINTS* t TAB ( 1 5 ) M* ', TAB < -K 

NEXT J 

RESTORE 

C=0 

IF I>1 THEN 1120 

M=J-1 

PRINT 

1=1+1 

IF I 

GOTO 420 

REM **:*;« 

DATA THE 

DATA THE 

DATA THE 

DATA THE 

DATA THE 

DATA END 



>SG* 



M THEN 900 

DATA ENTRY FOLLOWS at*** 
HORSEFLIES r BUZZIN AROUND , ATTIC 
BUMBLEBEES i- MAKIN HONEY* RECORD CABINET 
SINGIN SONGSTRESS » HAPPY SONGS » RECORD CABINET 
STATUES 9 QUIET' SOUNDS , ATTIC 
HORSEFLIES , VOLUME 2 9 ATTIC 



RUN 

SHALL I PRINT ALL ITEMS < Y OR N>? 

? Y 

SHALL I PRINT THE ENTRIES IN THE ORDER I HAVE THEM <Y OR N)? 

? Y 



ARTIST 



TITLE 



THE HORSEFLIES 

THE BUMBLEBEES 

THE SINGIN SONGSTRESS 

THE STATUES 

THE HORSEFLIES 



BUZZIN AROUND 
MAKIN HONEY 
HAPPY SONGS 
QUIET SOUNDS 
VOLUME 2 



LOCATION 

ATTIC 

RECORD CABINET 

RECORD CABINET 

ATTIC 

ATTIC 



BREAK IN 460 



RUN 

SHALL I PRINT ALL ITEMS < Y OR N)? 

? N 

WOULD YOU LIKE TO SEARCH FOR A TITLE (T), OR ARTIST (A)? 

? A 

ENTER THE ARTIST TO SEARCH FOR 

? HARRIED HUSTLERS 
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ARTIST 



TITLE 



LOCATION 



BREAK IN 460 



RUN 

SHALL I PRINT ALL ITEMS < Y OR N>? 

? N 

WOULD YOU LIKE TO SEARCH FOR A TITLE <T>? OR ARTIST (A)? 

? A 

ENTER THE ARTIST TO SEARCH FOR 

? THE HORSEFLIES 



ARTIST 



THE HORSEFLIES 
THE HORSEFLIES 



TITLE 



BUZZIN AROUND 
VOLUME 2 



LOCATION 

ATTIC 
ATTIC 



BREAK IN 460 



MAJOR SYMBOL TABLE - RECORD SEARCH 













I 


NAME 


♦ « 


DESCRIPTION 


I 


I 


S 


* » 


SWITCH INDICATOR 


I 


I 


M 


t * 


MAXIMUM NUMBER OF DATA READS 


I 


I 


S$ 


« « 


ITEM TO SEARCH FOR 


I 


I 


AS 


» » 


ORDER INDICATOR 


I 


I 


G$ 


* » 


ARTIST/GROUP 


I 


I 


T$ 


♦ ♦ 


TITLE 


I 


I 


L$ 


♦ « 


LOCATION 


I 


I 


C 


t * 


COUNTER 


I 


I 


I 


t ♦ 


COUNTER 


I 




FUNCTIONS USED 














I 


NAME 


» 9 


DESCRIPTION 


I 












I 


TAB 


* « 


FORMATS PRINT LINES 


I 


I 


GOSUB 


« ♦ 


BRANCHES TO AND RETURNS 


I 



164 BASIC Computer Programs for the Home 



REFERENCES FILING 

Description 

This program offers the user the opportunity to record important refer- 
ences for school, hobby, or home use, and to retrieve selected references 
when required. 

Functions of the Program 

The program accepts the reference entries from the data and prints 
either all entries or just those that match the user supplied selection 
criteria. Selection is based upon the reference code given to each item. 

Instructions for Use 

Categorize the references within appropriate reference codes, and then 
enter them as data prior to running the program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The format of the reference entries is: 

Reference code, Item, Location, page number 

Output Description 

See example provided. 



20 REM kxcsok* REFERENCE LOCATING PROGRAM **w 

30 REM xxxx DATA INITIALIZATION xxxx 

TO M--1000 

50 PRINT "SHALL I PRINT ALL ENTRIES < Y OR N >'>" 

60 INPUT A$ 

70 PRINT 

BO IE A$="Y" THEN 110 

90 PRINT "ENTER THE REFERENCE CODE FOR THE SEARCH" 

100 INPUT X* 

110 PRINT 

120 PRINT 

130 PRINT 

1-40 PRINT 

150 PRINT "CODE" 5TAEK10) ', "ITEM" ? TAB < 32) ? "LOCATION" 5TAB<55> ? "PAGE NBR" 

1 6 PR.TNTT AB (10)}" - - — » f TAB ( 32 ) } » — " ? TAP ( 55 ) } " -■••• ' 

170 PRINT 

ISO REM xokxok PROCESSING AREA **** 

190 FOR 1=1 TO M 

200 READ C* 

210 IF C*="END° THEN 320 

220 READ Ft* »L *»!=■* 

230 IF A*<>"Y" THEN 260 
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240 
250 
260 
270 
280 
290 
300 
3.10 
320 
330 
340 
350 
360 
370 
38(1 
390 
400 
410 
420 
430 
440 
450 



IF 



PRINT C* 
GQT0310 
C*<:>X* THEN 

c-c+i 

IF C=l THEN 
C*=" " 



r AB < 9 ) R$ P TAB < 32 ) P L* 5 TAB (60)5 P* 



31 



30 



PRINT 
NEXT I 
REM xmxok 
PRINT 
PRINT 
PRINT 
STOP 

REM xxxx 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



TAB < 32 ) ? L* % TAB < 62 ) i Ptf 



C*n"AB<9)R* ; 

PROGRAM TERMINATION POINT **** 



DATA ENTRIES FOLLOW ****: 
SOFTWARE.- REFERENCE PROGRAM , BASIC PROGRAMS FOR THE 
HARDWARE? INSTALLING A DISK , MAGAZINE «.i>28 
SOFTWARE? FISHERMAN'S DIARY* BASIC PROGRAMS FOR THE 
HARDWARE.* FIXING MACHINE X .MAGAZINE 2.98 

T'WAREi.8080 ASSEMBLER SORT* MAGAZINE 4,. .1.3 



SOF 

SOFTWARE j LSI .1.1 INSTRUCTION SET* REFER'ENCE 

SOFTWARE r BASIC PROGRAMMING » MAGAZINE 3 > 67 

END 



BOOK 



HOME* 56 
HOME s.89 

345 



RUN 

SHALL I PRINT ALL ENTRIES ( 

? Y 



Y OR N >? 



CODE 



ITEM 



LOCATION 



PAGE NBR 



SOFTWARE REFERENCE PROGRAM 

HARDWARE INSTALLING A DISK 

SOFTWARE FISHERMAN'S DIARY 

HARDWARE FIXING MACHINE X 

SOFTWARE 8080 ASSEMBLER SORT 

SOFTWARE LSI 11 INSTRUCTION SET REFERENCE BOOK 

SOFTWARE BASIC PROGRAMMING MAGAZINE 3 



BASIC PROGRAMS FOR THE HOME 

MAGAZINE # 1 

BASIC PROGRAMS FOR THE HOME 

MAGAZINE 2 

MAGAZINE A 



i 



89 

98 

13 

345 

67 



BREAK IN 360 



RUN 

SHALL I PRINT ALL ENTRIES < Y OR N )? 

? N 

ENTER THE REFERENCE CODE FOR THE SEARCH 
? HARDWARE 



CODE 



ITEM 



LOCATION 



PAGE NBR 



HARDWARE INSTALLING A DISK MAGAZINE # 1 
FIXING MACHINE X MAGAZINE 2 



28 
98 
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BREAK IN 360 

MAJOR SYMBOL TABLE - REFERENCES 

I NAME .. DESCRIPTION I 

! j 

I M 

I X$ 

I C$ 

I R$ 

I P$ 

I 



. MAXIMUM NUMBER OF DATA READS I 

. CODE TO SEARCH FOR I 

. CODE IN i 

. REFERENCE ITEM IN I 

. PAGE NUMBER/SUB LOCATION IN I 
1 



FUNCTIONS USED 



I- 



-I 



I NAME ,. DESCRIPTION I 



."[ — - 



-I 



I TAB ., FORMATS PRINT LINES I 



I- 



-I 
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MUSIC COLLECTIONS 

Description 

This program offers the musically inclined an able assistant to locate 
and print the location of all their favorite pieces. Selected pieces can be 
searched for and printed, if desired. 

Functions of the Program 

The program accepts the music entries from the data and prints either 
all items or just those that match the user-supplied selection criteria. 
The selection of items is based upon a search through the titles of the 
data entered. 

Instructions for Use 

Enter the items as DATA prior to running the program. 

Data Entry 

All data is entered as DATA statements. 

Data Format 

The musical pieces are entered in the form: 

Title, Location, Page number 

Output Description 

See example provided. Printed output is either a formatted list of all 
items or a print of those items that match the title being searched for. 



20 REM kjkxMUSIC/SONG LOCATING PROGRAM** *** 

30 REM **** DATA INITIALIZATION **** 

40 M=1000JS=0 

50 PRINT "SHALL I PRINT ALL ENTRIES ( Y OR N )?" 

60 INPUT A* 

70 PRINT 

80 IF M>--="Y" THEN 150 

90 PRINT "ENTER THE SONG TO FIND" 

.1.00 INPUT X$ 

110 PRINT 

120 PRINT 

.1.30 PRINT' 

1.40 PRINT 

150 PRTNTTABC5) "SONG" J TABOO) > "LOCATION" ?TAB< 53) ; "PAGE NER" 

1 6 PRINT' " - - » f TAB < 3 ) i " •— " ', TAB ( 52 ) i " 

170 PRINT 

ISO REM xok** PROCESSING AREA jkhokik 

190 I- OR I>1 TO M 

20 READ R$ 

2.1.0 IF R$="END" THEN 320 

220 READ L$i.p$ 
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230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 



IF A*<>"Y" THEN 260 
PRINT R* i TAB < 30 ) i L* i TAB ( 55 ) i P* 
GOTO310 
IF R*OXt THEN 310 
R-R+l 

IF R=l THEN 30 
R*~" » 



PRINT- 
NEXT I 
REM aoKxx 
PRINT 
PRINT 
STOP 

REM xokxok 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



R* f TAB ( 30 ) i L$ i TAB < 55 > ', I-'* 



PROGRAM TERMINATION POINT **** 



DATA ENT'RIES FOLLOW xaofc*: 
JINGLE BELLS •> INTRO MUSIC BOOK :U34 
THE CHRISTMAS SONG* MUSIC FOR CHRISTMAS , 86 
GOD REST YE MERRY GEMTLEMENf BOOK 2»190 
SILVER BELL.Si.BaOK *3!-56 
JINGLE BELLS , ADVANCED BOOK 4*123 
DECK THE HALLS y BOOK 7,23 
WHITE CHRISTMAS , CHRISTMAS BOOK 4*67 
JINGLE BELLS* BOOK 8*67 
END 



RUN 

SHALL I PRINT ALL ENTRIES < Y OR N >? 

? Y 



SONG 



JINGLE BELLS 

THE CHRISTMAS SONG 

GOD REST YE MERRY GENTLEMEN 

SILVER BELLS 

JINGLE BELLS 

DECK THE HALLS 

WHITE CHRISTMAS 



JINGLE BELLS 



LOCATION 




PAGE NBR 


INTRO MUSIC BOOK- 


1 


34 


MUSIC FOR CHRISTMAS 


86 


BOOK 2 




190 


BOOK #3 




56 


ADVANCED BOOK 4 




123 


BOOK 7 




23 


CHRISTMAS BOOK 4 




67 


BOOK 8 




67 



BREAK IN 350 



RUN 

SHALL I PRINT ALL ENTRIES < Y OR N )? 

? N 

ENTER THE SONG TO FIND 
? JINGLE BELLS 



SONG 



LOCATION 



PAGE NBR 



JINGLE BELLS 



INTRO MUSIC BOOK 1 
ADVANCED BOOK 4 
BOOK 8 



34 

123 

67 
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BREAK IN 350 



MAJOR SYMBOL TABLE - MUSIC 

! 1 

I NAME . . DESCRIPTION I 

! 1 

I M . . MAXIMUM NUMBER OF DATA READS I 
IX* . . SONG/MUSIC TO SEARCH FOR I 
I R$ ♦. SONG/MUSIC IN I 

I L* . . LOCATION I 

I P$ . ♦ PAGE NUMBER/SUB LOCATION I 
j 1 

FUNCTIONS USED 

X 1 

I NAME . . DESCRIPTION I 

X 1 

I TAB ., FORMATS PRINT LINES I 

j 1 
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COIN COLLECTIONS 

Description 

This program offers the numismatist an able assistant to keep track of 
his collection. The collection can be listed in its entirety, or selected 
dates, coin denominations, mints, or coin types can be printed upon 
request. 

Functions of the Program 

The program accepts the coin information from the data and prints the 
items specified. The selection of items to be printed can be based upon 
most of the items included in the data. 

Instructions for Use 

Enter the individual collection items into the program prior to running it. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The format for the data is: 

Coin date, Denomination, Mint, Coin type, 
Number minted (in millions), Condition 

Output Description 

See example provided. Output is either a formatted list of all items or a 
print of those that satisfy the selection criteria. 



20 REM COIN COLLECTION PROGRAM 

30 REM *x*x DATA INITIALIZATION xcxxx 

^0 M==10 00 

50 REM xxcx** PROCESSING STARTS xokhokx 

60 PRINT "SHALL I PRINT ALL. OP THE ENTRIES < Y OR N )'?" 

70 INPUT A* 

80 IF A*<>"Y* THEN 230 

90 REM at***: PRINT ROUTINE FOR "ALL" ENTRIES kxjkx 

.100 PRINT 

110 PRINT 

120 PRINT 

130 PRINT "DATE" JTAB<B) ? "SIZE" 5TAB< 1*> i "MINT" ?TAB<22) ? "TYPE" ; TAB < 36) i 

M0 PRINT" NBR (MIL) " ?TAB(^7> i "CONDITITION" 

150 PRINT " " i TAB < B ) i " » i TAB < 1 1 > J " " f TAB (20)?" " 5 

160 PRINT TAB ( 36 > ? » " 5 TAB < «,7 > ? " » 

170 FOR I =1 TO M 

180 READ D* 

190 IF D*="END" THEN 990 

200 READ S*yM*jT$rNi«C* 
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210 
220 
230 
2-40 
250 
260 
270 
280 
290 
300 
310 
320 
330 
3-40 
350 
360 
370 
38 
390 

too 

410 
420 
430 
•MO 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
60 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
BIO 
820 
830 
840 



DENOMINATION 
OR TYPE <T>?" 



SIZE <S>' 



PRINT D*JTAB<B) JS*JTAB<15>JM*n'AB<20)*T*JTAB<36>JNJTAB<47>;C* 
NEXT I 

PRINT "WHAT SHALL I SEARCH FOR J DATECD) , 
PRINT" MINTCMJr 

INPUT ah; 
IF A*="T" 
IF A$="S" 
IF A*="M" 
REM «*>K» 



THEN 820 
THEN 460 
THEN 640 
DATE SEARCH AND PRINT 



•ENTER 
X* 



THE DATE TO SEARCH 



XJKXX 

FDR" 



'TYPE"? 



PRINT 1 

INPUT 

PRINT' 

PRINT 

PRINT ■ " i X* * TAB < 8 ) f " SIZE " i TAB < 1 4 > 5 " MINT' " i TAB < 22 ) i ' 

PRINT TAB < 36 ) ? " NBR < MIL ) " i TAB < 47 ) t " CONDITION " 

PRINTTAEK8) i " " ?TAB(14> i " " 5TAB<20> ? " " t 

PRINTTABC36) t "~ — " HAS (47) t " " 

FOR 1=1 TO M 

READ D* 

IF D*="E:ND" THEN 990 
READ S*»M*>T*!.N!.C* 
IF D*OX* THEN 440 

PRINT TAB < 8 ) t S* ? TAB < 1 5 > i M* ? TAB ( 2 ) i T* > TAB ( 36 ) i N % TAB ( 47 > t C$ 
NEXT I 
GOTO 990 

REM soook DENOMINATION SIZE SEARCH AND PRINT' 
PRINT' "ENTER THE DENOMINATION SIXE TO SEARCH 
INPUT X* 
PRINT 
PRINT 
PRINT- 
PRINT" " ?X* ; > TAB<8) ? "DATE" ?TAB< 14> > "MINT" ?TAB<22> i ' 
PRINTT AB ( 36 > ? " NBR ( MIL ) " ? TAB ( 47 ) i " CONDITION " 



XOKMOK 

FOR" 



' T'YPE 



PRINTTAB<8>?"- 

PRINTTABC36) J" 

FOR 1=1 TO M 
READ D$ 
IF D*="END" 
READ S*»M*j 
IF SHiOX* THEN 
PRINTTAB<8)U')* 

NEXT I 

GOTO 990 

REM sokmok MINT 

PRINT "ENTER 
X$ 



■ TAB (14);" " i TAB < 2 > J ' 

» j T AB < «, 7 > } » — 



THEN 990 
TiPfNcC* 
620 
'TAB 



1 5 ) % M* f TAB ( 20 ) ? T* ? TAB ( 36 > > N i T'AB < 45 > ', C* 



SEARCH AND PRINT **** 
THE MINT TO SEARCH FOR 
INPUT 
PRINT' 
PRINT- 
PRINT 

PRINT " " f X* } TAB < 8 ) > " DATE " i TAB < 1 5 ) J " SIZE " f TAB < 22 ) } ° TYPE ' 5 
PRINT TAB ( 36 ) ? " NBR' ( MIL > " ? T AB < 47 ) ? " CONDITION " 

PRINTT AB i 8 > ', " - - " ? TAB (15)?" " 5 T'AB < 2 ) 5 * " ? 

PRINTTAB<36) f " JTAB(47) ? " " 

FOR I = 1 TO M 

READ D* 

IF D*="END" THEN 990 

READ S* r M* » T* ? N r C* 

IF M»OX$ THEN 800 

PRINTTAB < 8 ) t D* i TAB < 15 > S S* i TAB < 20 ) t T* % TAB ( 36 ) % N > T'AB < 47 > 1 C* 
NEXT I 
GOTO 990 

REM **** TYPE SEARCH AND PRINT **** 
PRINT' "ENTER THE TYPE TD SEARCH FOR" 
INPUT X* 
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850 PRINT 

860 PRINT 

870 PRINT 

88 PRINT " " ? X* 5 TAB< 1 6 > i " DATE " i TAB i 24 i } " SIZE " T AB < 3 1 > ? " MINT " i 

89 PRINTT AB < 36 ) ? " NBR ( MIL > " t TAB ( 47 ) ? " CONDITION " 

900 PRINTTAB < 1 6 ) t " " i TAB < 24 > i " " ? TAB ( 31 > f " " i TAB < 36 ) i 

910 PRINT " " } TAB < 47 ) J " " 

920 FOR 1= 1 TO M 

930 READ D* 

940 IF D*="EN»" THEN 990 

950 READ S*»M*»T*»N/C* 

960 IF n<>Xii THEN 980 

970 PRINTTAB<16> ?D$?TAB<24> ?S*»TAB<32> 5 M* ? TAB < 36 ) ?N?TAB<45) f C* 

930 NEXT I 

990 REM ***:* PROGRAM TERMINATION POINT **** 

.1.000 PRINT 

1010 PRINT 

1020 STOP 

1030 RE.'M mm DATA ENTRIES FOLLOW **** 

10 'f0 DATA 1 947 *. 25 *D* FRANKLIN v. 10.00s.VF 

1050 DATA i944r«05»S»SILVER»22.00»PROOF 

1060 DATA 1965>.. 1 vDrFLAWi.il 4. 1W : " 

1070 DATA 1 978 fMi-Sf PROOF SET y 3. 2 c PROOF 

1080 DATA 1 979 ,MrP r MINT SET»4.50rUNC 

1090 DATA 1943»,05»D»SILVER»16.^7tVF 

1100 DATA 1907i>,01i-Sf».35»G 

1110 DATA 1 90 1 p. 01 ).» INDIAN f .86 ? G 

1120 DATA 1865»1.00»CCi-»65.17»G 

1130 DATA 1945> .25 rSr FRANKLIN , 8.89* F 

11 40 DATA END 



RUN 
SHALL 
? Y 



I PRINT ALL OF THE ENTRIES < Y OR N )? 



DATE 


SIZE 


MINT 


TYPE 


1947 


.25 


D 


FRANKLIN 


1944 


.05 


S 


SILVER 


1965 


.10 


n 


FLAW 


1978 


M 


S 


PROOF SET 


1979 


M 


P 


MINT SET 


1945 


.05 


D 


SILVER 


1907 


.01 


S 




1901 


.01 




INDIAN 


1865 


1.00 


CC 




1945 


.25 


S 


FRANKLIN 



NBR (MIL) CONDITION 



10 


VF 


22 


PROOF 


114.1 


F 


3.2 


PROOF 


4.5 


UNC 


16.47 


VF 


.35 


G 


.86 


G 


65.17 


G 


8.89 


F 



BREAK IN 1020 



RUN 



SHALL I PRINT 'ALL OF THE ENTRIES < Y OR N )? 

? N 

WHAT SHALL I SEARCH FOR! DATE(D)* DENOMINATION SIZE (S) 

MINT (M)» OR TYPE <T>? 
? S 

ENTER THE DENOMINATION SIZE TO SEARCH FOR 
? M 
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DATE 


MINT 


TYPE 


NBR <MIL) CONDITION 


1978 
1979 


S 
P 


PROOF BET 
MINT SET 


3.2 PROOF 
4.5 UNC 



BREAK IN 1020 



MAJOR SYMBOL TABLE 



COINS 



I NAME 



. DESCRIPTION 



MAXIMUM NUMBER OF DATA READS 

DATE OF COIN 

SIZE (DENOMINATION) OF COIN 

MINT OF COIN 

COIN TYPE 

NBR MINTED (MILLIONS) 

COIN CONDITION 

ITEM TO SEARCH FOR 



I 


M 


I 


D* 


I 


S$ 


I 


m 


I 


T$ 


I 


N 


I 


C$ 


I 


X$ 


T- 





FUNCTIONS USED 



I NAME 



DESCRIPTION 



TAB 



.. FORMATS PRINT LINES 
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COIN INVESTMENTS 

Description 

This program offers additional information to the numismatist that 
considers the collection as an investment. The collection information 
maintained by this program differs slightly from the previous version. 

Functions of the Program 

This program accepts the coin information from the data items and 
prints it as specified by your responses to the program's questions. The 
list can include all, or selected categories of, items and can, if desired, 
include total cost and current value information. 

Instructions for Use 

The individual item information must be entered prior to running the 
program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The format of the data is: 

Coin date, Denomination, Mint, Type, 
Number minted (in millions), Purchase date, Quantity, Cost, Value 

Output Description 

See example provided. 



20 REM COIN INVESTMENT RECORD PROGRAM 

30 REM «»okx DATA INITIALIZATION xxxx 

■<H) M~t0Q0 

50 REM ****: PROCESSING STARTS **** 

60 PRINT "SHALL. I PRINT ALL OF THE ENTRIES ( Y OR N )'?» 

70 INPUT A* 

SO PRINT "SHALL I PRODUCE TOTAL COSTS/VALUES FOR YOU (Y OR N)'° 

90 INPUT Al« 

.1.0 IF A'JK>"Y" THEN 310 

:l..1.0 REM **** PRINT ROUTINE FOR "ALL" ENTRIES xxxx 

120 PRINT 

130 PRINT 

140 PRINT 

.1.50 PRINT "DATE" ?TAB<7> } "SIZE" STAB<12> ? "COND" f TAB<19J i "TYPE" ,"TAB<28) ? 

160 PRINT' " NBR < MIL > " ', TAB < 39 > J » PRCI-I " J TAB C *6 ) f » QT Y » ; TAB < 52 ) t " COST " ? 

.1.70 PRINTTABC59) t "VAL" 

180 PRINT " " i TAB < 7 } ? " " i TAB < .1. Z>i" " f TAB ( 1 '?)}•' -- ■ ; 

190 PRIN7TAB<2S> t " -» ?TAB<39) i "- -•-•" ?TABCt6) t " 

200 PRINTTAB(52) i " " JTAB<59) i " -—" 
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210 for :i: =.t to m 

220 READ D* 

230 IF D*-~"END n THEN 1310 

240 READ S*fmrT*9bi>C*9P$tQtCfV 

250 PRINTD*?M*?TAB(7) ?3!l>rTAB(12> SC* n'AB(17) ri'*?TAB(28) ?NSTAB(37) > 

260 PRINT P*?TAB(45) ?ar('AB(51 ) ?CJ TAB(57) >K> 

271) IF A1$<>"Y" THEN 30 

280 C:l=Cl + <C*G> 

290 Vl=V:l. + (V*a:> 

30 NEXT 1" 

310 PRINT "WHAT SHALL I SEARCH FOR; DATE(D)» DENOMINATION SIZE(S)" 

320 PRINT" MINT CM ) » OR TYPE (T)?" 

330 INPUT A* 

340 IF A*="T" THEN 1080 

350 IF A*="S"THEN 600 

360 IF A*~"M"THEN 8-10 

370 REM xoraxc DATE SEARCH AND PRINT **** 

380 PRINT "ENTER' THE DATE TO SEARCH FOR" 

390 INPUT X* 

400 PRINT' 

flO PRINT 

420 PRINT'X*?TAB(7) i "SIZE" ;TAB<12) J "COND" ?TAB(19) ? "TYPE" >TAB(28) J 

430 PRINT " NBR ( MIL ) " t TAB ( 39 ) ? " PRCH " i TAB < 46 > % ' GITY " * TAB < 52 ) > " COST " ? 

440 PRINTTAB < 59 ) i " VALUE " 

450 PRINTTAB (7 > i "- " ?TAB(12) i "- ■-•" 5TAB(19) ', ■-■ " ? 

460 PRINTTAB (28) i " ~" J TAB < 39) i " — " ?TAB(46) ? "-•- " 5 

470 PRINTTAB (52) ? " " ?TAB(59) i " " 

480 FOR I == 1 TO M 

490 READ D* 

500 IF D*--"END" THEN 1:310 

510 READ S*FM*»T*rNfC*>P*!'GrOV 

520 IF D*OX* THEN 580 

530 PRINTTAB(1)M$?TAB(7> 5S$fTAB(12) ? C*?TAB< 17) 5 T*f TABC28) ?N?TAB(37) f 

540 PRINTP!|irTAB(45) ?Q»TAB<51 ) 5C5TAB(57) i\> 

550 IF A$O u Y" THEN 5B0 

560 C1=C1KC»Q) 

570 ivil=yi + <V5KBJ 

580 NEXT I 

590 GOTO 1310 

60 REM sokxok DENOMINATION SIZE SEARCH AND PRINT' **** 

610 PRINT "ENTER THE DENOMINATION SIZE TO SEARCH FOR" 

620 INPUT X* 

630 PRINT' 

640 PRINT 

650 PRINT 

660 PRINTX*?TAB(5) i "DATE" STAB<12) i "COND" f TAB(19) ? "TYPE" ?TAB(28> i 

670 PRINT "NBR (MIL) " >TAB(39) > "PRCH" ? TAB (46) % "QTY" J TAB (52) ? "COST" "> 

68 PRINTTAB ( 59 ) ? " VALUE " 

690 PRINTTAB(5) ; "- -" ?TAB(12) > " " ?TAB(19) > " "i 

700 PRINTTAB (28) ? "— " 3TAB(39) % " " f TAB (46) ? " " ? 

710 PRINTTAB ( 52 ) J " " 5 TAB ( 59 ) i " " 

720 FOR 1=1 TO M 

730 READ D$ 

740 IF D*-~"END" THEN 1310 

750 READ S*fM*>T*jNrC*..P*rGlfCi-V 

760 11=' S$ <> X$ THEN 820 

770 PRINTTAB(S) JD*fMi|;rr'AB.'12) ?C*?TAB(19) rr*?TAB(28) ?NJTAB(37) S 

780 PRINTP*5TAB<45) JQ?TAB(51) »C?TAB(57) }\> 

790 IF Ai'JK>'*Y" THEN 820 

800 C1=C1-KC*«) 

810 V1=V1+<V*«> 

820 NEXT I 

830 GOTO 1310 

840 REM **** MINT SEARCH AND PRINT **** 
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850 PRINT "ENTER THE MINT TO SEARCH FDR" 

1360 INPUT X* 

870 PRINT 

880 PRINT 

890 PRINT 

90 PRINTX* > TAB < 2 ) ? " DATE CD " ? TAB < 1 2 ) 5 " SIZE " ? TAB < 1 9 ) f " TYPE ' ? 

910 PRINT"?' AB(2B) t "NBR(MIL) " J TAB < 39) ? "PRCH" ?TAB(46) ? "QTY" >TAB(52) ? 

92 PRINT " COST ' 5 TAB < 59 ) i " VALUE " 

930 PR.INTTAB<2>> " - ■-■-■" ?TAB(12) t " " JTAB<19) * "- — "?' 

940 PRINTTAB(28) ? "- "J TAB < 39) » " " J TAB (-46) f " " ?TAB(52) ? 

95 PRINT " " 5 TAB < 59 ) > " " 

960 FOR 1=1 TO M 

970 READ Di|> 

980 IF D*=="END" THEN 1310 

990 READ S* i> M* » T* » N f C*»P*f Q i-CrV 

100 IF H$OX$ THEN 1060 

1010 PRINTTAB<2) ?D*?TAB(8) t C*»TAB<12) SS$!TAB( 19) ?T*? TAB(29) ?N5 

1020 PRINTTAB<36) SP;|snAB(4S) ?0?TAB(51 ) i C JTAB(57) ?V 

1030 IF A1*<>"Y" THEN 1060 

1040 C1~C1+(C*C1> 

.1.050 V1=V1 + <V*'G) 

1060 NEXT I 

1070 GOTO 1310 

1080 REM **** TYPE SEARCH AND PRINT **** 

1090 PRINT "ENTER THE TYPE TO SEARCH FOR" 

1100 INPUT X$ 

1110 PRINT 

1120 PRINT 

1130 PRINT 

1140 PRINTX* t TAB < 9 > J " DATE " f TAB ( 1 5 ) f " SIZE " ", TAB < 22 ) > " COND " t 

1150 PRINTTAB(28) ? "NBR(MIL) " ?TAB(39) t "PRCH" h'AB<46> > "QTY" ?TAB(52) 5 

1160 PRINT " COST' " ? TAB C 59 ) S " VALUE " 

1 170 PRINTTAB ( 9 ) ? " " ', TAB < .1.5 > J " " i TAB ( 22 ) ? " " 5 TAB < 28 ) ? 

.1. .1 80 PRINT " " t TAB ( 39 ) i " " ? TAB < 46 ) 5 " " t 

1190 PR.TNTTAB(51 ) ? " " ; TAB (58) f "— " 

120 FOR 1=1 TO M 

1210 READ D« 

1220 IF D*="END" THEN 1310 

1230 READ S*s.M*i-T!l>»Ni-C*pP«»ayCi.V 

1240 IF TtOXt THEN 1300 

1250 PRINTTAB < 9) ? D* J TAB ( .1.5) ?S$? TAB(22) ?C*;TAB<28) »N» TAB(37) ? 

1260 PRINTP$n'AB(46) fQf TAB (52) ?CfTAB(58) ?V 

1270 IF A1$<>"Y" THEN 1300 

1280 Cl=Cl + (OKGi) 

1290 V1=V1 + (V>kQ) 

130 NEXT I 

1310 REM *»oootc PROGRAM TERMINATION POINT' ***•*< 

1320 PRINT 

1330 PRINT 

1340 IF A1*<>»Y" THEN 1430 

.1.350 PRINT "k*>kw«;k«»>k;kx*>k>k>k}kx**;oc*>xk>k***>k;k:«" 

1360 PRINT" TOTAL COST WAS "SCI 

1370 PRINT " *>K>K**;K*»«>K>KK>K**»>K;K>K;f<>K;K>K;<<jo<>K:K>x>K»; " 

1380 PRINT" TOTAL VALUE IS "J VI 

1390 PRINT " *>K>K;K»*'xx>K;K*w»x**>K)K>K;K»c;K>K>iOK;K>KX<>t:>K>!< " 

140 PRINT 

.1.410 PRINT 

1420 PRINT 

1430 STOP 

1440 REM **** DATA ENTRIES FOLLOW xxxx 

1450 DATA 1 947 >■ . 25 >■ D , WASHINGTON , 1 v VF » DEC 1 978 , 1 , 1 > 50 , 1 , 50 

1460 DATA 1944r « OSrSpSILVER* 11 . 1 y VG*. JAN 1979v50» 1 .50»1 .75 

1470 DATA 1965 y « 10 pDfFLAWj 114. :UF*FEB 1979 v 1 1 10 y 11 .50 

1480 DATA 1978,.MyS7pROOF SET y 3. 2? PR? OCT 1978? 10»7. 00^17.50 
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:l.^90 DATA 1 978 ..Mr 3 v MINT SE""» 4, 50 ,&Ur OCT 1978, 10 , 4, 00 ? 1'K 
1500 DATA J.945* .(ISfDfSXLVEFiljiA.-q/j.VFi.JUL 1 978 » 1 * ,'fO» .55 
15.1.0 DATA .1907* « 01 p , INDIAN i- .35pGvAUG 1V7?» 100 , ,75, .80 
1520 DATA 1 90 1 ,, (I :!. , , INDIAN. *86>G , SEP 1979*2000? .75? .80 
1530 DATA .1.8751-1 <■ 00 ?CC? ?65, 17? G? SEPT 1979? 1 ? 65*75 
15-70 DATA 1945? ,25?S?WASH.I'NGT0M?8.89,.F?SEP 1.979,5* 1.75,2, 10 
1550 DATA END 



RUN 

SHALL I PRINT ALL OF THE ENTRIES ( Y OR N )? 

? Y 

SHALL I PRODUCE TOTAL COSTS/VALUES FOR YOU <Y OR N )? 

■? y 



DATE 


SIZE 


COND 


TYPE 


NBR (MIL) 


PRCH 


HTY 


COST 


VALUE 


1947D 


,25 


VF 


WASHINGTON 


10 


DEC 1978 


1 


1.5 


1.5 


1944S 


.05 


VG 


SILVER 


11.1 


JAN 1979 


50 


1,5 


1.75 


1965D 


.10 


F 


FLAW 


114,1 


FEB 1979 


1 


10 


11.5 


1978S 


M 


PR 


PROOF SET 


3.2 


OCT 1978 


10 


7 


17.5 


1978S 


M 


BU 


HINT SET 


4.5 


OCT 1978 


10 


4 


14 


1945D 


.05 


VF 


SILVER 


16.47 


JUL 1978 


100 


.4 


.55 


1907 


.01 


G 


INDIAN 


.35 


AUG 1979 


1000 


.75 


.8 


1901 


.01 


G 


INDIAN 


.86 


SEP 1979 


2000 


,75 


.8 


1875CC 


1.00 


G 




65.17 


SEPT 1979 


1 


65 


75 


1945S 


,25 


F 


WASHINGTON 


8.89 


SEP 1979 


5 


1.75 


2.1 



WW********************* 
TOTAL COST WAS 2560.25 

TOTAL VALUE IS 2956 



BREAK IN 1430 



RUN 

SHALL I PRINT ALL OF THE ENTRIES < Y OR N )? 

? N 

SHALL I PRODUCE TOTAL COSTS/VALUES FOR YOU <Y OR N )? 

? N 

WHAT SHALL I SEARCH FOR: DATE(D>? DENOMINATION SIZE <S> 

MINT <M>? OR TYPE <T>'? 
? D 

ENTER THE DATE TO SEARCH FOR 
? 1945 
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1945 



SIZE 


COND 


TYPE 


NBR (MIL) 


PRCH 


QTY 


COST 


VALUE 


.05 
.25 


VF 
F 


SILVER 
WASHINGTON 


16.47 
8.89 


JUL 1978 
SEP 1979 


100 
5 


.4 
1.75 


.55 
2.1 



BREAK IN 1430 



MAJOR SYMBOL TABLE - COIN INVESTMENTS 

I ! 

I NAME .. DESCRIPTION I 

I ! 

I M .. MAXIMUM NUMBER OF DATA READS I 

I D$ ., DATE OF COIN I 

IS* .. SIZE (DENOMINATION) OF COIN I 

I M$ ,. MINT OF COIN I 

IT* .. TYPE OF COIN I 

IN .. NUMBER MINTED (MILLIONS) I 

I C* .. CONDITION I 

I P* . , PURCHASE DATE I 

I Q . . QTY OWNED I 

I C .. COST I 

IV . . VALUE I 

I CI .. TOTAL COSTS I 

I VI .. TOTAL VALUE I 

IX* . . ITEM TO SEARCH FOR I 

! x 

FUNCTIONS USED 
! j 

I NAME .. DESCRIPTION I 

j j 

I TAB .. FORMATS PRINT LINES I 

! j 
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BEER CAN COLLECTION 

Description 

This program offers beer can collectors (young or old) the capability to 
control their collections and take advantage of opportunities for trades. 

Functions of the Program 

The program accepts from the data the information concerning the 
individual cans in the collection and then prints the items specified. 
The items printed can include all or just a part of the collection, de- 
pending upon the selection criteria provided. 

Instructions for Use 

Enter the individual items of the collection as data prior to running the 
program. Items sold or traded should be deleted when the transaction 
occurs. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The format for the collection data is: 

Brand name, Size, Can type, Material, Color/Condition 

Output Description 

See example provided. Output is either a formatted list of all items or a 
list of those that match the selection criteria specified. 



20 REM BEERCAN COLLECTION PROGRAM 
30 REM »st>K>x DATA INITIALIZATION **** 
40 M=10 00 

50 REM ****: PROCESSING STARTS xxxx 

60 PRINT "SHALL I PRINT ALL OF THE ENTRIES ( Y OR N )'?" 
70 INPUT A* 

SO IF A*0"Y° THEN 230 

90 REM **** PRINT ROUTINE FOR "ALL" ENTRIES **** 
100 PRINT 
110 PRINT 
120 PRINT- 
ISO PRINTTA&<3>? ,, BRAND"?TAB<20); n SIZE"n'AB<30>; "TYPE" JTAB<39> J "MAT" 
1 4 PRINTTAB ( 46 > t " COLOR/CONDITION " 

150 PRINTTAB <l>i " " ? TAB < 20 > ? " " f TAB (30)? 

160 PRINT " " ', TAB < 39 > 5 " " 5 TAB < 46 > > " " 

170 FOR I = 1 70 M 

180 READ B* 

190 IF B* = "END" THEN 790 

200 READ S**T*»M*»C* 
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210 PRINTS* f TAB (20 ) f S$ % TAB ( 29 ) J T* ? TAB ( 39 ) ? M* 5 TAB < 46 ) t C* 

220 NEXT I 

230 PRINT "WHAT SHALL I SEARCH FOR} BRAND <EO» SIZE(S)y OR TYPE<T)?" 

240 INPUT A* 

250 IF A*="T" THEN 620 

260 IF A*="S" THEN 440 

27-0 REM xxxx BRAND SEARCH AND PRINT xxxx 

280 PRINT' "ENTER THE BRAND TO SEARCH FOR " 

290 INPUT X* 

300 PRINT 

310 PRINT 

320 PRINTX$JTAB<20) 5 "SIZE" * TABOO) J "TYPE" 5TAB< 39) ? "MAT" ? TAB (46) i 

330 PRINT' " COLOR/CONDITION " 

34 PRINTTAB < 20 ) ? " " } TAB < 3 > i " " i TAB C 39 ) ? " " i 

350 PRINTTAB (-46) i " " 

360 FOR 1=1 TO M 

370 READ B$ 

380 IF B*=="END" THEN 790 

390 READ S*i-T$>.M*rC* 

-10 IF B$OX$ THEN 420 

410 PRINTTAB (20 >» S$ f TAB < 30 )»T*»TAB<39)*M$; TAB ( ^6) fC* 

420 NEXT I 

430 GOTO 790 

440 REM xx** SIZE SEARCH AND PRINT xxxx 

450 PRINT "ENTER' THE SIZE TO SEARCH FOR " 

460 INPUT X* 

470 PRINT 

480 PRINT 

490 PRINT 

500 PRINTX$JTAB(B) i "BRAND" »TAB( 28) } "TYPE" 5TAB<37) > "MAT" »TAB<46) i 

510 PRINT " COLOR/CONDITION " 

520 PRINTTAB(S) i " " 5TAB(28> i " " > 

530 PRINT TAB < 37 ) ? " " ', TAB ( 46 ) ', " " 

540 FOR I = 1 TO M 

550 READ B* 

560 IF B*="END" THEN 790 

570 READ S*vT*»M*fC* 

580 IF S* <>» THEN 60 

59 PRINTTAB < 8 ) f B* i TAB ( 28 ) 5 T* i TAB ( 37 ) » M* i TAB ( 46 ) > C* 

600 NEXT I 

610 GOTO 790 

620 REM xxx* TYPE SEARCH AND PRINT xxxx 

630 PRINT "ENTER THE TYPE TO SEARCH FOR" 

640 INPUT X* 

650 PRINT' 

660 PRINT 

670 PRINT 

68 PRINTXif; > TAB ( 8 ) f " BRAND " t TAB ( 28 ) ? " SIZE " ? TAB < 36 ) > " M AT " 5 TAB ( 46 ) ? 

69 PRINT " COLOR/CONDITION " 

700 PRINTTABC8) i " " 5TAB<28) 5 " "J 

710 PRINT TAB ( 36 ) i " " i TAB ( 46 ) i " " 

720 FOR 1= 1 TO M 
730 READ B* 
740 IF B*="E.'ND" THEN 790 
750 READ S*i.T*yM*»C* 
760 IF TtOX$ THEN 780 

770 PRINTTAB(B) ?B$»TAB<23> ?S$» TABC36) f M*5TAB(46) 5C* 
780 NEXT I 

790 REM xxxx PROGRAM TERMINATION POINT x**x 
800 PRINT- 
BIO PRINT 
820 STOP 

830 REM xxx DATA ELEMENTS FOLLW xxxx 
840 DATA BRAND X>>8 OZ*TAB TOP* ALUM , YELLOW GOOD 
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B50 


DATA 


BRAND 


860 


DATA 


BRAND 


870 


DATA 


BRAND 


880 


DATA 


BRAND 


890 


DATA 


END 


RUN 






SHALL I PRINT 


? Y 







Y SPECIALS- 16 OZrTAB TOP » STEEL »R/W EXCELLENT 
X SPECIAL^ 8 OZs-PCH TOP •> ALUM , RED POOR 

Y SPECIAL V3 OZs-TAB TOP i ALUM r GREEN GOOD 
X?16 OZcPCH TOP* STEEL s- R/W GOOD 



PRINT ALL OF THE ENTRIES ( Y OR N )? 



BRAND 



SIZE 



TYPE 



MAT 



COLOR/CONDITION 



BRAND 


X 




8 OZ 


TAB 


TOP 


ALUM 


YELLOW GOOD 


BRAND 


Y 


SPECIAL 


16 OZ 


TAB 


TOP 


STEEL 


R/W EXCELLENT 


BRAND 


X 


SPECIAL 


S OZ 


PCH 


TOP 


ALUM 


RED POOR 


BRAND 


Y 


SPECIAL 


8 OZ 


TAB 


TOP 


ALUM 


GREEN GOOD 


BRAND 


X 




16 OZ 


PCH 


TOP 


STEEL 


R/W GOOD 



BREAK IN 820 



RUN 

SHALL I PRINT ALL OF THE ENTRIES ( Y OR N )? 

? N 

WHAT SHALL I SEARCH FOR? BRAND(B). SIZE <S)f OR TYPE(T)? 

? T 

ENTER THE TYPE TO SEARCH FOR 

? TAB TOP 



TAB TOP BRAND 



BRAND X 

BRAND Y SPECIAL 

BRAND Y SPECIAL 



SIZE 



MAT 



COLOR/CONDITION 



8 OZ ALUM YELLOW GOOD 
16 OZ STEEL R/W EXCELLENT 
8 OZ ALUM GREEN GOOD 



BREAK IN 820 





MAJOR- 


SYMBOL TABLE - BEER CANS 


I- 




1 


I 

I- 

I 


NAME 


,. DESCRIPTION I 
.. MAXIMUM NUMBER OF DATA READS I 


M 


I 


B$ 


. . BRAND NAME I 


I 


S$ 


.. SIZE OF CAN I 


I 


T* 


. . TYPE OF CAN I 


I 


M* 


. . CAN MATERIAL I 


I 


C* 


. . COLOR/CONDITION I 


I 

i- 


X$ 


, . ITEM TO SEARCH FOR I 


i- 
i 

i- 
i 


FUNCTIONS USED 

T 


NAME 


.. DESCRIPTION I 
.. FORMATS PRINT LINES I 


TAB 


i- 





1 
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BOOK COLLECTIONS 

Description 

The computer really becomes a librarian with this program. Books in 
your private collection can be listed or searched, as you desire, thus 
allowing you to control your library. 

Functions of the Program 

The program accepts the information about each book from the data 
and then prints the entries or selects those that match the criteria 
specified. 

Instructions for Use 

Prior to running the program, information about the books in the 
collection must be provided. 

Data Entry 

All data is entered as DATA statements. 

Data Format 

The form of the data input is: 

Title, Author, Location 

Output Description 

See example provided. Output is a formatted list of all items or just 
those that satisfy the selection criteria specified. 



20 REM BOOK COLLECTION PROGRAM 
30 REM ***'* DATA INITIALIZATION **** 
40 M=10 00 

50 REM **** PROCESSING STARTS xxxx 

60 PRINT "SHALL I PRINT ALL OF' THE ENTRIES < Y OR N )?" 
70 INPUT A* 

80 IF A*0"Y" THEN 220 

90 REM *x*x PRINT ROUTINE FOR "ALL" ENTRIES xokhok 
100 PRINT' 
110 PRINT 
120 PRINT- 
ISO PRINTTABC6) > "TITLE" ', TAB < 36) J "AUTHOR" ? TAB (55) t "LOCATION" 

1 4 PRINTTAB ( 1 > i " - - " % TAB < 30 > ? " - 

150 PRINTTAB (55) i " - » 

160 FOR 1= 1 TO M 

170 READ Ttf 

180 IF 'Mi- "END" THEN 720 

190 READ A$»L$ 

20 PRIN "f T* y TAB ( 32 ) i A* ? TAB < 55 ) i L'i 

2.1.0 NEXT I 

220 PRINT" WHAT SHALL I SEARCH FOR} AUTHOR* A) v TITLE* T>» OR LOCATION(L)^ 
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230 INPUT A* 

210 IF A*="L" THEN 570 

250 IF A*--" A" THEN -410 

260 REM xxxx TITLE SEARCH AND PRINT ioc** 

270 PRINT' "ENTER THE TITLE TO SEARCH FOR " 

280 INPUT X* 

290 PRINT' 

300 PRINT 

310 PRINT X* t TAB < 35 ) ; " AUTHOR " J T'AB < 55 > % " LOCATION " 

32 PRINT! AB ( 3 ) i " " JT AB < 55 ) ? " -- - - " 

330 FOR I - .1. TO M 
310 READ T* 
350 IF T*=="END" THEN 720 
360 READ A'JivL* 
370 IF T'*OX* THEN 390 
380 PR.INTTAB < 30 > ? A* ? "CAB < 55 ) i U> 
390 NEXT I 
100 GOTO 720 

1.1.0 REM kxcjkx AUTHOR SEARCH AND PRINT xxxx 
120 PRINT' "ENTER THE AUTHOR TO SEARCH FOR" 
130 INPUT X* 
-M0 PRINT- 
ISO PRINT 
160 PRINT 
170 PRINTX*JTAB<21 ) 5 "TITLE" »TAB<55) t "LOCATION" 

■TOO PRINTTABC 18) ? " — " »TAB(55) f " -" 

190 FOR I ~ 1 TO M 

500 READ T* 

5.1.0 IF T$=="END" THEN 72 C 

520 READ A$kL* 

530 IF A*OX* THEN 550 

510 PR.l'NTTAB<:l.8) 5T$?TAB(55) ?(...* 

550 NEXT I 

560 GOTO 720 

570 REM jkxjkjk LOCATION SEARCH AND PRINT **** 

580 PRINT "ENTER THE LOCATION TO SEARCH FOR" 

590 INPUT X* 

60 PRINT 

610 PRINT 

620 PRINT 

63 PRINT'X* ', TAB < 1 5 > 5 " TITLE " 5 TAB < 15 > i " AUTHOR " 

61 PRINT! AB < 1 5 ) ? " - " "t TAB < 15 > t " — — " 

650 FOR I = 1 T'O M 

660 READ T* 

670 IF T*=--" END "THEN 720 

680 READ MiyL'H 

690 IF LUK>X* THEN 710 

700 PRINTTAB<15)rr*?TAB<15) i A* 

710 NEXT I 

720 REM **** PROGRAM TERMINATION POINT **** 

730 PRINT 

710 F'RINT 

750 STOP 

760 REM **** DATA ENTRIES FOLLOW **** 

770 DATA BASIC PROGRAMS EOF; THE HOME r CHARLES STERNBERG > SHELF 1 

780 DATA BOOKS > ANOTHER AUTHOR •> SHELF 2 

790 DATA BOOK 3 » ANOTHER AUTHOR i-SHELF .1. 

800 DATA BOOK 1* CHARLES STERNBERG? SHELF 2 

810 DATA BOOK 5 » DAVID JONES » SHELF 2 

820 DATA END 
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RUN 

SHALL I PRINT ALL OF THE ENTRIES < Y OR N )? 

? Y 



TITLE 



AUTHOR 



BASIC PROGRAMS FOR THE HOME 

B00K2 

BOOK 3 

BOOK 4 

BOOK 5 



CHARLES STERNBERG 
ANOTHER AUTHOR 
ANOTHER AUTHOR 
CHARLES STERNBERG 
DAVID JONES 



LOCATION 

SHELF 1 
SHELF 2 
SHELF 1 
SHELF 2 
SHELF 2 



BREAK IN 750 



RUN 

SHALL I PRINT ALL OF THE ENTRIES ( Y OR N )? 

? N 

WHAT SHALL I SEARCH FORt AUTHOR(A)j TITLE(T)? OR LOCATION<L>? 

? A 

ENTER THE AUTHOR TO SEARCH FOR 

? CHARLES STERNBERG 



CHARLES STERNBERG 



TITLE 



BASIC PROGRAMS FOR THE HOME 
BOOK 4 



LOCATION 

SHELF 1 
SHELF 2 



BREAK IN 750 



MAJOR SYMBOL TABLE 



BOOKS 



I NAME 



DESCRIPTION 



M 

T$ 

A$ 

L* 

X* 



MAXIMUM NUMBER OF DATA READS 

TITLE 

AUTHOR 

LOCATION 

ITEM TO SEARCH FOR 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



TAB 



FORMATS PRINT LINES 
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SERVICE CALLS 

Description 

Service information and repair points are recalled at the touch of a 
button with this program for recording service information on your 
major home appliances. 

Functions of the Program 

This program provides little processing capability as it merely produces 
a formatted list of the sendee items included in the data. It does 
provide, however, a simple means of eliminating nagging household 
problems. 

Instructions for Use 

Enter information about the appliances and their service points prior to 
running the program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The form of the data is: 

Appliance, Repair company, Address, Telephone number 

Output Description 

See example provided. 

Comments 

This program is ideally suited for experimentation in adding functions 
or extensions to the possibilities provided. As a start, consider adding a 
selection function to print specified items. 



20 REM SERVICE CALL PROGRAM - BASIC 

30 REM **** DATA INITIATION »*** 

40 M=10 00 

50 REM jkjoc* PROCESSING AREA **** 

60 POR I = 1 TO M 

70 READ 1$ 

80 IF I*="END° THEN 1'fO 

90 PRINT 

100 READ S*s.X*»T* 

1 1 PRINTI* f T AB ( 2 ) ? S * .' TAB < 5 ) ST* 

120 PRINTTAB<20> X* 

130 NEXT I 

140 REM **** PROGRAM TERMINATION POINT jkxxjk 

150 PRINT 
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160 PRINT 

170 STOP 

ISO xokxw DATA ENTRIES FOLLOW **** 

190 DATA TELEVISION j-XYZ CORPORATION j.^15 ANY STREETp5 v +5--:l.23*'f 

200 DATA SEWING MACHINE)- ABC CORP » 678 WADSWORTH AVE, ? 3-15-8765 

210 DATA END 



RUN 

TELEVISION XYZ CORPORATION 545-1234 

415 ANY STREET 

SEWING MACHINE ABC CORP 345-8765 

678 WADSWORTH AVE. 



BREAK IN 170 



MAJOR SYMBOL TABLE - SERVICE CALLS 

X j 

I NAME .. DESCRIPTION I 

X j 

I M 

I 1$ 

I S* 

I X$ 



I T* 



MAXIMUM NUMBER OF DATA READS I 

ITEM I 

COMPANY FOR SERVICE I 

ADDRESS OF COMPANY I 

TELEPHONE OF COMPANY I 



X j 

FUNCTIONS USED 

I j 

I NAME ., DESCRIPTION I 

X j 

I TAB .. FORMATS PRINT LINES I 

X j 
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RECORDING TAPES 

Description 

There is no reason to search manually through tape reels and hand- 
written notes to find a particular recording when this program can do it 
for you in much less time. 

Functions of the Program 

The program reads the tape information from the data supplied and 
prints an index of any or all tapes, or locates all items that meet the 
criteria specified. 

Instructions for Use 

The tape information and recorded items must be entered prior to 

running the program for the first time. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

1. A master record is required for each tape. The form is: 

Tape number, Speed 

2. Recorded items are entered using the form: 

A, Artist name, Title, Location on the tape 

Output Description 

See examples provided. The formatted output clearly identifies the con- 
tents of the tapes printed and the location of all items on the tape. 



20 REM TAPE RECORD PROGRAM 

30 REM *:««* DATA INITIALIZATION JOOKx: 

40 C0=1 

50 M-1000 

60 PRINT "SHALL I PRINT ALL ITEMS ( Y OR N)?" 

70 INPUT AC)* 

B0 IF A0*="Y" THEN 160 

90 PRINT-SHALL I SEARCH FOR A TAPE(T>» ARTIST < A) f OR SDNG<S)?" 

100 INPUT Al* 

110 PRINT "ENTER THE ITEM TO SEARCH FOR* 

120 INPUT X* 

130 PRINT 

1^10 PRINT 

150 C0=0 

160 REM x*** PROCESSING AREA **** 

170 FOR 1= 1 TO M 

180 READ T* 
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.1.90 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 

390 

400 

410 

420 

430 

440 

450 

460 

470 

480 

490 

500 

51 

520 

530 

540 

550 

560 

570 

580 

590 

600 

610 

620 

630 

640 

650 

660 

670 

680 

690 

700 

710 

720 

730 

740 

750 

760 

770 

780 

790 

BOO 

810 

B20 



'?T$»TAB< 18)? "SPEED - »?S$ 



"ARTIST "STAB (25),* 
'- -"»TAB<25> »"• 



1 SONG " t TAB ( 50 ) t " LOCATION " 
— " ? TAB ( 50 ) ? " - » 



IF T«~ "END" THEN 390 
IF T* <> "A" THEN 270 
READ A*,P*,L* 

IF A0*O°Y" THEN 250 

PRINTTAB < 5 ) A* i TAB ( 25 ) ? P$ ? TAB < 5 ) 5 L* 

GOTO 380 

GQSUB 440 

GOTO 380 

REM »***• TAPE MASTER ITEM PRINT Jkxok* 

T1*=T* 

READ S$ 

C=0 

IF A0$O"Y" THEN 380 

PRINT 

GOTO 340 

PRINT "TAPE - 

PRINT 

PRINTTAB<5) 

PRINTTAB (5) 
NEXT I 

REM ikxhok TERMINATION POINT **** 
IF C0O0 THEN 420 
PRINT "ITEM NOT FOUND" 
PRINT' 
STOP 

REM xmcx* SELECTION PROCESSING AREA xxxx 
IF A1$0"T" THEN 580 
IF T*<>»A" THEN 730 
IF Tl*OX* THEN 730 
IF 00 THEN 540 

PRINT "TAPE - "?Tl*;TAB(lB)f "SPEED - ""S$ 
PRINT' 

IF C0>0 THEN 540 
PRINTTAB (5) "ARTIST" "TAB (25) ? "SONG" ? TABOO > % "LOCATION" 

PRINTTAB (5)' » i TAB < 25 ) i » » i TAB (50)?" " 

PRINTTAB ( 5 ) i A$ f TAB ( 25 ) t P* > TAB ( 50 > i L * 

C0=C0+1 

C=C+1 

GOTO 730 

IF A1*<>"A" THEN 660 

IF AiPOX* THEN 730 

IF C0>0 THEN 640 

PRINTTAB(S) "ARTIST" ;TAB(23) J "SONG" ? TAB (40 ) * " TAPE" ? TABOO ) i "LOCATION" 

PRINTTAB ( 5 ) " " ? T.-.B ( 25 > ? " - " i TAB (40)?" ■ ? TAB < 50 ) i " " 

C0=C0+1 

PRIN TTAB ( 5 ) A * 5 TAB < 25 > ? P* t T AB ( 4 ) i T 1 * i TAB ( 5 ) ? L * 

GOTO 730 

IF A1*<>"S" THEN 730 

IF PK.OX* THEN 780 

IF COO THEN 720 

PRINTTAB ( 5 ) " SONG " ', TAB < 25 > 5 ' ARTIST " J TAB ( 45 ) ? " TAPE " > TAB < 55 ) % " LOCATION " 

PRINTTAB (5 ) ? » " ? TAB (25) t » " 5 TAB (45) 5 » » i TAB (55) t " 

C0=C0+1 

PRINTTAB(5) ?P$fTAB(25) -A*,"TAB(45) ?T1**TAB(55) *!„.$ 

RETURN 

REM xxxx DATA ENTRIES FOLLOW xxxx 

DATA 100 ,3 5/8 

DATA A,SINGERl,SONG 1,1 

DATA A , SONGSTRESS 2, PIECE 2x2 

DATA 101,7 1/2 

DATA A yREDDY , NEWSONG , 7523 

DATA A,REDDY,OLD SONG, 516 

DATA A y ANOTHER y NEWSONG y 865 

DATA TAPES, 7 1/2 
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830 DATA A ? REDDY , ANOTHER S0NG»14 
B-40 DATA A r SOMEONE p NEWSONG ? 56 
850 DATA END 



RUN 

SHALL I PRINT ALL ITEMS < Y OR N )? 

? Y 



TAPE 


- 100 


SPEED 


- 3 5/8 




ARTIST 




SONG 




SINGER1 
SONGSTRESS 


*? 


SONG 1 
PIECE ? 


TAPE 


- 101 


SPEED 


- 7 1/2 




ARTIST 




SONG 




REDDY 
REDDY 
ANOTHER 




MEWSONG 
OLD SONG 
NEWSONG 


TAPE 


- TAPE3 


SPEED 


- 7 1/2 




ARTIST 




SONG 




REDDY 
SOMEONE 




ANOTHER SONG 
NEWSONG 



LOCATION 

1 
2 

LOCATION 

7523 

516 

865 

LOCATION 

14 
56 



BREAK IN 430 



RUN 

SHALL I PRINT ALL ITEMS ( Y OR N )? 

? N 

SHALL I SEARCH FOR A TAPE <T)t ARTIST (A)* OR SONG <S>? 

? S 

ENTER THE ITEM TO SEARCH FOR 

? NEWSONG 



SONG 

NEWSONG 
NEWSONG 
NEWSONG 



ARTIST 

REDDY 

ANOTHER 

SOMEONE 



TAPE 


LOCATION 


101 


7523 


101 


865 


TAPE3 


56 



BREAK IN 430 
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MAJOR SYMBOL TABLE - RECORDING TAPES 



I NAME 



.. DESCRIPTION 



MAXIMUM NUMBER OF DATA READS 

ITEM TO SEARCH FOR 

TAPE NUMBER/TRANSACTION TYPE 

ARTIST 

SONG 

LOCATION ON TAPE 

TAPE SPEED 

TEMPORARY TAPE NUMBER SAME 



I 


M 


I 


X$ 


I 


T* 


I 


A$ 


I 


P$ 


I 


L$ 


I 


S$ 


I 


Tl* 







FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



I TAB 

I 



.. FORMATS PRINT LINES 
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CLUB LISTS 

Description 

For the individual involved in club activities, this program can save 
hours of manual typing and calculation efforts. 

Functions of the Program 

The program reads club member information from the DATA state- 
ments and performs the requested processing, Processing requirements 
are determined by the option number entered. All options are separated 
in the program for clarity. The options available are: 

1. Printing mailing labels 

2. Computing and printing members' dues status 

3. Printing a list of names and telephone numbers 

4. Printing a member listing in checklist form 

Instructions for Use 

Enter and store the member information, prior to the program's use. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

1. The first data record contains spacing and dues information: 

Lines to print per address, Dues required for each period 

2. Individual member information is entered in the form: 

Name, Telephone, Street, City-State-Zip code, Dues paid 

Output Description 

See examples provided. Option choices determine the format of the 
output produced. 



20 REM CLUB LISTING PROGRAM 

30 REM xchokxc DATA INITIALIZATION *>k« 

40 M=10000 

50 PRINT 

60 PRINT 

70 PRINT" POUR OPTIONS ARE AVAILABLE" 

80 PRINTTAE<10)5"1. PRINT IN MAILING LABEL FORMAT" 

90 PRINTTAB<10)> "2. PRINT OF MEMBER'S DUES STATUS" 

100 PRINTTABaO>;"3. PRINT OF NAMES AND TELEPHONES" 

110 PRINTTABC10)? "4, PRINT IN CHECKLIST FORMAT" 

120 PRINT 

130 PRINT "ENTER OPTION NUMBER DESIRED" 

HO INPUT' 

150 REM *«x>k ENTRY OF NUMBER TO PRINT *** 

1A0 Nl=3 
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.1.70 READ NZi-D 

180 REM **** PROCESSING STARTS *** 

190 PRINT' "POSITION PAPER NOW" 

200 INPUT G$ 

2.1.0 PCJR 1=1 TO M 

220 READ N* 

230 IF N*:*"END" THEN 590 

240 READ T$,A1$,A2$,P 

250 IF" 0=1 THEN 360 

260 IF 0=2 THEN 410 

270 IF 0=3 THEN 520 

280 REM **** OPTION 1 **** 

290 IF IOJ. THEN 320 

30 PRINT " CHK " i TAB< 8 ) ? ■ NAME/ADDRESS " i TAB < 35 > i " TFt FPHONF 

31 PRINT • ■ J TAB < 8 ) i -- • ; tab < 35 > ', ■ ---- -~ 

320 PRINT" < ) "JN**TAB<35>*T* 

330 PRINTTAB< 1 > 5 Al*» " , " i A?* 

310 PRINT 

350 GOTO 570 

360 REM **** OPTION 1 **** 

370 PR.INTN* 

380 PRINTA1* 

390 PRINTA2* 

400 FOR K=NH1 TO N2 

'11(1 PRINT 

420 NEXT K 

430 GOTO 570 

4-10 REM **** OPTION 2 **** 

450 IF K>1 THEN '180 

460 PRINT "NAME" HABOd) f "OWED" 

470 pri NT .___. ■ JTABO0) ; " " 

480 T1=D-P 

490 T2=T2-t-Tl 

50 PRINTN$ i TAB (30 ) t Ti 

510 GOTO 570 

520 REM **** OPTION 3 **** 

530 IF I <> 1 THEN 560 

51 PRINT " NAME " J TAB (30)?" TELEPHONE " 

550 PRINT " - > ; TAB < 30 ) ? " — - ■ 

560 PR.TNTN* ? TAB (30 ) f T* 

570 NEXT I 

580 REM ****************x********>k)(ok* 

590 REM **** TERMINATION POINT ****** 

600 IF OC-2 THEN 630 

61 PRINTTAB ( 30 ) i " ° 

620 PRINTTAB(16)f "TOTAL. OWED "n'ABOOKT? 

630 PRINT 

610 PRINTI--1J" RECORDS WERE PRINTED" 

650 PRINT 

660 PRINT 

670 STOP 

680 REM a********************************* 

690 REM EXAMPLE DATA FORMATION FOLLOWS 

700 REM k******************************** 

710 DATA 6*15 

720 DATA JOHN D. DDE* 243- 1231 

730 DATA 555 SMOKE Y DRIVE 

740 DATA ■GROTONf MASS B7878" 

750 DATA 12.00 

760 DATA JOSEPH R< WESTONBY> 345-2345 

770 DATA 456 EASERLY ROAD 

780 DATA "TAYLORSVILLE, MAINE 23231" 

790 DATA 11 

800 DATA END 
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RUN 



FOUR OPTIONS ARE AVAILABLE 

1. PRINT IN MAILING LABEL FORMAT 

2. PRINT OF MEMBER'S DUES STATUS 

3. PRINT OF NAMES AND TELEPHONES 

4. PRINT IN CHECKLIST FORMAT 

ENTER OPTION NUMBER DESIRED 

? 1 

POSITION PAPER NOW 

'? 



JOHN D. DOE 

555 SMOKEY DRIVE 

GROTON* MASS 87878 



JOSEPH R. WESTONBY 
456 EASERLY ROAD 
TAYLORSVILLEy MAINE 23234 



RECORDS WERE PRINTED 



BREAK IN 670 



RUN 



FOUR OPTIONS ARE AVAILABLE 

1, PRINT IN MAILING LABEL FORMAT 
?. PRINT OF MEMBER'S DUES STATUS 

3. PRINT OF NAMES AND TELEPHONES 

4. PRINT IN CHECKLIST FORMAT 

ENTER OPTION NUMBER DESIRED 

'? 2 

POSITION PAPER NOW 



NAME OWED 

JOHN D. DOE 3 

JOSEPH R. WESTONBY 4 

TOTAL OWED 7 

2 RECORDS WERE PRINTED 
BREAK IN 670 
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RUN 



FOUR OPTIONS ARE AVAILABLE 

1. PRINT IN MAILING LABEL FORMAT 

2. PRINT OF MEMBER'S DUES STATUS 

3. PRINT OF NAMES AND TELEPHONES 

4. PRINT IN CHECKLIST FORMAT 



ENTER OPTION NUMBER DESIRED 

? 3 

POSITION PAPER NOW 



NAME TELEPHONE 



JOHN D. DOE 243-1234 

JOSEPH R. WESTONBY 345-2345 



RECORDS WERE PRINTED 



BREAK IN 670 



RUN 



FOUR OPTIONS ARE AVAILABLE 

1. PRINT IN MAILING LABEL FORMAT 

2. PRINT OF MEMBER'S DUES STATUS 

3. PRINT OF NAMES AND TELEPHONES 

4. PRINT IN CHECKLIST FORMAT 



ENTER OPTION NUMBER DESIRED 

? 4 

POSITION PAPER NOW 



CHK NAME/ADDRESS TELEPHONE 



< ) JOHN D. DOE 243-1234 

555 SMOKEY DRIVE. GROTON, MASS S7878 

( ) JOSEPH R. WESTONBY 345-2345 

456 EASERLY ROAD. TAYLORSVILLE, MAINE 23234 



2 RECORDS WERE PRINTED 



BREAK IN 670 
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MAJOR SYMBOL TABLE - CLUB LISTS 
.. DESCRIPTION 



I NAME 

I 

I 
I 
I 



M 



Nl 

N2 

D 

N$ 

T$ 

Al* 

A2$ 

P 

Tl 

T2 



MAXIMUM NUMBER OF DATA READS 

OPTION NUMBER 

LINES IN EACH ADDRESS 

LINES TO PRINT FOR EACH ADDRESS 

REQUIRED DUES FOR PERIOD 

NAME 

TELEPHONE 

ADDRESS LINE 1 

ADDRESS LINE 2 

DUES PAID FOR PERIOD 

DUES OWED 

TOTAL DUES OWED - ALL 



FUNCTIONS USED 



I NAME 



,. DESCRIPTION 



I TAB 

I 



, . FORMATS PRINT LINES 
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TABLE OF CONTENTS 

Description 

This program can satisfy a number of school, hobby, and home needs. 
With a little thought, it can be applied to everything from creating out- 
lines for school to recording the contents of your program cassettes. 

Functions of the Program 

The program will either locate and print specific items from the data 
items or produce a formatted listing with user-controlled indentation. 

Instructions for Use 

Determine the level number (for indentation) for each of the items, and 
enter the information prior to running the program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The form for data entry is: 

Item level, Item, Page number/Location 
Note the END card. 

Output Description 

See example provided. Output is produced with indentation based upon 
five spaces multiplied by the level number supplied with the item. 



20 REM TABLE OF" CONTENTS < LOCATOR) PROGRAM 
30 REM **** DATA INITIALIZATION aoKKtt 
40 Tl=50 
51) T2=45 
60 M=10 00 

70 PRINT "SHALL I PRINT ALL ENTRIES < Y OR N)?° 
80 INPUT A* 
90 PRINT 

100 IF A$==»Y" THEN 130 

110 PRINT' "ENTER THE ITEM TO SEARCH FOR " 
120 INPUT X$ 
130 PRINT' 
140 PRINT 
150 PRINT 
160 PRINT 

170 PRINTTABC30) i "ITEM" JT ABC Tl ) i "LOCATION- 
ISO PRINTTAB ( 1 ) f " » j TAR< TL > ? 

190 PRINT" » 

200 REM XXXXXXXXXXXXXXXXXyKXXIKXXXXXIKXXXXXIKXXXXXXX 

210 REM Mo***** PROCESSING AREA ^tf******:**::****:*** 
220 FOR 1=1 TO M 
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230 READ T 

240 IF T=0 THEN 510 

250 READ I*»Rir» 

260 IF TOi THEN 30 

270 S1*«=I* 

280 S2*~R* 

290 11=45 

300 IF A*<>"Y" THEN 370 

310 PRINTTAB <T*5> J "•- " ?.!*? 

320 IF R*="" THEN 350 

330 PRINTTAB < 11 ) » " - "5 R* i 

340 Tl=50 

350 PRINT' 

360 GOTO 490 

370 IF TOI THEN 390 

380 PRINT 

390 IF IK>X$ THEN 490 

40 PRINT-TAB ( 5 > i SI * i 

410 IF S2*="" THEN 440 

420 PRINTTAB ( T2 ) ? " - "i S2* i 

430 IF T = 1 THEN 480 

440 PRINT 

450 PRINTTAB < T*5 ) i 1$ i 

460 IF R*="" THEN 480 

470 PRINTTAB (ID? "-•• "JR*» 

480 PRINT 

490 Tl=50 

500 NEXT I 

510 REM at****** PROGRAM TERMINATION POINT acx****** 

520 PRINT 

530 PRINT 

540 PRINT 

550 STOP 

560 REM XXXXXXXXXXXXXXXXIKM.XXXXXXXXXXIKXXyKlKXXlllXXiKXX 

570 REM xokxoxhokxokjk DATA ENTRIES FOLLOW Kaon***** 

580 DATA 1?TAPE IjRACK 1 

590 DATA 2 * FINANCIAL PROGRAMS , 

600 DATA 3 ? CHECKBOOK BALANCE? 132 

610 DATA 3 ..HOUSEHOLD EXPENSES » 240 

620 DATA 3 r INTEREST PROJECTIONS? 356 

630 DATA 3 1. STOCK ANALYSIS! 762 

640 DATA 2? TUTORS? 

650 DATA 3. MATH ADDITION ? 850 

660 DATA 3 f MATH SUBTRACTION? 1000 

670 DATA li» TAPE 2 ? RACK 1 

680 DATA 2? KITCHEN? 

690 DATA 3 1- DIETs- 10 

70 DATA 3 , DIET PLANNING? 457 

710 DATA 2?MISC? 

720 DATA 3? SCHEDULES? 25 

730 DATA 1?TAPE 3? RACK 2 

740 DATA 3?DIET»123 

750 DATA 



RUN 
SHALL 
? Y 



I PRINT ALL ENTRIES < Y OR N )? 
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ITEM 



TAPE 1 

FINANCIAL PROGRAMS 

CHECKBOOK BALANCE 
HOUSEHOLD EXPENSES 
INTEREST PROJECTIONS 
STOCK ANALYSIS 

TUTORS 

MATH ADDITION 
MATH SUBTRACTION 
TAPE 2 

KITCHEN 

DIET 

DIET PLANNING 

MISC 

SCHEDULES 
TAPE 3 

DIET 



LOCATION 
RACK 1 

- 132 

- 240 

- 356 

- 762 

- 850 

- 1000 
RACK 1 

- 10 

- 457 

- 25 
RACK 2 

- 123 



BREAK IN 550 



MAJOR SYMBOL TABLE 



TABLE OF CONTENTS 



I NAME 



. . DESCRIPTION 



Tl 
T2 
X* 

T 

1$ 

R$ 



TAB CONTROL USE 

TAB CONTOL USE 

ITEM TO SEARCH FOR 

NUMBER OF SPACES TO TAB - IN 

ITEM IN 

PAGE NUMBER/REFERENCE LOCATION IN 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



I TAB 

I 



. FORMATS PRINT LINES 
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Utility Bill Analysis 


202 


Health Records 


205 


Bulletin Board 


209 


School Grade Recording 


211 


Achievement Recording 


215 


Calendars 


218 


Multiple Prints 


222 


Paper Route— Basic Version 


224 


Paper Route— Extended Version 


229 


Weight Control 


235 


Household Inventory 


239 
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UTILITY BILL ANALYSIS 

Description 

The rising cost and dwindling supply of energy indicates the need for 
careful control and analysis of energy usage. This program was designed 
to assist with these tasks. 

Functions of the Program 

The program accepts periodic readings of any utility meter and com- 
putes daily use and cost information. Totals and averages for the period 
are produced after all data items have been processed and printed in a 
tabular form. 

Instructions for Use 

Determine the unit cost of the energy use from your statement. Read 
the meter and enter the information to the program, as frequently as 
possible. Daily readings are best for thorough interpretation of the 
results. 

Data Entry 

All data is entered as DATA statements. 

Data Formats 

The first record provided is the cost per unit of the item. The second 
and succeeding records are of the form: 

Date of reading, Meter reading 

Output Description 

See example provided. 
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2d R!. :: --; UTILITY ANALYSIS PROGRAM 

30 REM jkjkjk* DATA INITIALIZATION **** 
40 M=10 00 

50 REM XJOSXJKXOKHOKilOKJMKJfOKilCJKJfOKHOKJlOieilOK 

60 REM HiMiK PROCESSING AREA xokhok 

70 PRINT 

80 PRINT 

90 PRINT 

100 READ C 

110 READ D.S 

120 PRINT "INITIAL READING WAS "535" ON DAY " >D 

130 PRINT "COST PER UNIT IS " ?C 

HO PRINT 

ISO PRINT "DATE" ?TAB<28J ? "USE COST" 

160 PRINT "READ" ?TAB(7> ", "READ" ?TAB(16) ? "USED" ?TAB<28J J "THIS DAY" 

170 PRINT" " ?TAB<7) t " " JTAB<15> i "- " ?TAB<28) ? " " 

180 T2--S 

190 D2=D 

200 FOR 1=1 TO M 

210 N=l 

220 READ D 

230 IF D=0 THEN 3B0 

240 IF D<D2 THEN 260 

250 N=D-D2 

260 D2-D 

270 READ R 

280 T0=R--T2 

290 T1=T0*C 

300 PRINTDJTAEU5) ?RrTAB<15> i TO n"AB<28) ST1 > 

310 IF N=l THEN 330 

320 PRINT"*** ( " iHi " DAYS) " i 

330 T2-R 

340 T3=T3+T1 

350 N.1.=N1+N 

360 PRINT 

370 NEXT I 

380 R'EM JK^^JK^^OfOKXOKaCXtaOKiKXCXOKKJKXXtX^a'XJKSKXOKX 

390 REM soc** PROGRAM TERMINATION POINT xxxk 

400 T-9-R-S 

410 PRINTTAB CVS)}" " i TAB < 28 ) % " - — " 

420 PRINT " TOTALS " ? TAB < 15 > ? T4 ? TAB <2B ) * T3 

430 PRINT 

44 PRINT " XXXXXXXXXXiXXXXXXXXXXXXXXXlXXXXXX " 

450 PRINT "FOR "5N1 ? " DAYS" 

460 PRINT "AVERAGE DAILY USE WASJ">T4/N1 

470 PRINT "AVERAGE DAILY COST WASJ"?T3/N1 

480 PRINT " XOfCMOKSOKJK^X^JKXXMCSOKSOKSOIOKXXOK^OKaOKMOKW " 

490 PRINT 

50 PR-INT 

510 STOP 

520 REM JfOKJfOKSOKXOKXOKJIOKIIOKaOK 

530 R'EM hokxck* DATA ENTRY FOLLOWS xxxxx 

540 DATA ^ 025 

550 DATA 24 . 1500 

560 DATA 25.1590 

570 DATA 26.170 

580 DATA 27.180 

590 DATA 28.220 

60 DATA 30.2600 

610 DATA 1.30 00 

620 DATA 2.3100 

630 DATA 3.320 

640 DATA 5.3500 

650 DATA 
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RUN 



INITIAL READING WAS 1500 ON DAY 24 
COST PER UNIT IS .025 



DATE 






USE COST 


READ 


READ 


USED 


THIS DAY 


25 


1590 


90 


2.25 


26 


1700 


110 


2.75 


27 


1800 


100 


2.5 


28 


2200 


400 


10 


30 


2600 


400 


10 *** ( 


1 


3000 


400 


10 


2 


3100 


100 


2.5 


3 


3200 


100 


2.5 


5 


3500 


300 


7.5 ### < 


TOTALS 


2000 


50 



2 DAYS) 



FOR 1 1 DAYS 

AVERAGE DAILY USE WAS: 181.818 

AVERAGE DAILY COST WAS: 4.54545 



BREAK IN 510 



MAJOR SYMBOL TABLE - UTILITY BILL ANALYSIS 

j 1 

I NAME .. DESCRIPTION I 



I 


M 


* 


maximum number of data reads 


I 


I 


C 


» 


COST PER UNIT 


I 


I 


D 


♦ 


INITIAL READING DAY 


I 


I 


S 


* 


INITIAL READING 


I 


I 


R 


* 


READING 


I 


I 


TO 


♦ 


UNITS USED 


I 


I 


Tl 


* 


COST PER DAY 


I 


I 


Nl 


f 


DAY COUNT 


I 


I 


T4 


t- 


TOTAL USE 


I 


I 


T3 


♦ 


TOTAL COST 


I 




FUNC 


;tions used 














I 


NAME 


t- 


DESCRIPTION 


I 












I 

T- 


TAB 


* 


FORMATS PRINT LINES 


I 
-T 
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HEALTH RECORDS 

Description 

Maintaining family health histories and immunization information is 
frequently a source of difficulty in many households. With this program 
to assist you, the task may be simplified. 

Functions of the Program 

The program reads the various data items provided and prints either all 
items or only those for the specified individual. Note that the processing 
of the data for the two printing options has been totally separated for 
your ease of interpretation and modification, if desired. 

Instructions for Use 

Data items should be provided for illnesses and immunizations prior to 
running the program. New items should be added as they occur. 

Data Entry 

All data is entered using DATA statements. 

Data Format 

The format for all data is: 

Individual's name, Month-Day-Year, Type code, Description 
Type codes are specified during data initialization. 

Output Description 

See examples provided. Two forms of output are available. 



20 REM HEALTH RECORD RECORDING PROGRAM 

30 REM **** DATA INITIALIZATION a:*** 

^0 Ml =3 

50 DIM C0*<3) 

60 DIM Ci* (•<!•> 

70 C0if.(l) = "IM" 

B C.1. *(!) = " IMMUNIZATION " 

90 C0*<2> = "V 

100 CI* < 2)=-° VISITED DOCTOR" 

110 C0*<3)="IL" 

120 Cl$< 3)=" ILLNESSES" 

130 Cl$<'f) = " " 

140 M=10Q0 

150 PRINT "SHALL I PRINT ALL OP THE ITEMS < Y OR N J?" 

160 INPUT A* 

170 IP A*<>"N" THEN 2-90 

180 PRINT "ENTER THE NAME TO SELECT" 

190 INPUT X* 

200 PRINT 
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210 PRINT 

220 PRINT 

230 GOTO 50 

240 PRINT "WOULD YOU LIKE THE RECORDS IN ENTRY ORDER <E> OR SORTED (S)?" 

250 INPUT Al* 

260 PRINT 

270 PRINT 

280 PRINT 

290 IF A1$="S" THEN 680 

300 REM iKXaOK-IOKaOX^WXOK^^MOK^.'KXORXOK^XJK 

310 REM stoKscx PRINT ALL. ITEMS IN ENTRY ORDER **** 

320 PRINT "NAME" 5 TAB (13 ) ", "DATE" r(AB(40 > i "DESCRIPTION" 

330 PRINT " — " i TAB< 10)5" " 5 TABOO ) i 

350 FOR I = .1. TO M 

360 READ N* 

370 IF N*="END" THEN 450 

380 READ D*»C**I* 

390 FOR K= 1 TO Ml 

400 IF C*=C0*CK) THEN 420 

410 NEXT K 

420 PRINTN$ > FAB ( 1 ) > D$ i TAB ( 3 ) ? C 1 $ ( K ) 5 TAB < 45 > ', 1$ 

430 NEXT I 

440 REM !«>!;X>K!fOK)KJK«X)fOKX>K>K»£»C.*a<»>X»X>K)K)K»<*!K>K*)K)KX*»<X<*X)K**»OKS<>K 

450 REM hokxoksk TERMINATION POINT aoKSOfcaoxaox*: 

460 PRINT 

470 PRINT 

480 STOP 

490 REM SOK!K>KXOK»OKKX;aOK)KXaOKXC:*»OKB«K»:)K)KX*:>KSOK 

500 REM *>k*k PRINT OF SELECTED RECORDS xxxxx 

51 PRINT " NAME " J TAB < 1 3 > > " DATE " i TAB ( 4 ) i " DESCRIPTION " 

520 PRINT " " i TAB (10)?" " 1 TAB ( 30 ) i 

530 PRINT" " 

540 FOR 1= 1 TO M 

550 READ N* 

560 IF N*="END" THEN 450 

570 READ D*»C«»I* 

580 IF NtOXI THEN 650 

590 FOR K= 1 TO Ml 

600 IF C*=C0*CK) THEN 640 

610 NEXT K 

620 IF J > 1 THEN 640 

630 m-° " 

640 PRINTN*?TAB<10)5D*MAB(30)fCl$CK>5TAB<45>?I < .|; 

650 NEXT I 

660 GOTO 450 

670 REM SOCXCXWJK^OKXOKSOKSCMCXJK^iKMOKaCXSOKSOK^JKilOKSCXCJIOKaOKiKJKXJKKX 

680 REM **■** PRINT OF ITEMS IN SELECTED ORDER **** 

690 PRINT " NAME " i TAB (13)?" DATE " ? TAB (40)?" DESCRIPTION " 

700 PRINT " " 1 TAB (10)5" " 5 TAB (30)?" " t 

71 PRINT " " 

720 1=1 

730 FOR J=l TO M 

740 READ N* 

750 IF N*="END" THEN 94 

760 READ D*»C*rl'$ 

770 IF J>I THEN 880 

780 IF J<I THEN 930 

790 S*=N* 

800 IF I = 1 THEN 880 

81 RESTORE 

820 FOR K = 1 TO J 

B30 READ NippD*»C*rI* 

840 IF S$ON$ THEN 360 
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(35 C=C+1 

860 NEXT K 

870 IF C>1 THEN 940 

880 IF NJOSt THEN 930 

890 FOR K = 1 70 Ml 

900 IF C*=C0*<IO THEN 920 

910 NEXT K 

92 PRINTS* i TAB < 1 ) i D* > TAB < 3 > ', CI * < K ) f TAB ( 45 ) ? I* 

930 NEXT J 

940 RESTORE 

950 C=Q 

960 IF I > 1 THEN 980 

970 M=J--1 

980 PRINT 

990 1=1+1 

100 IF IOM THEN 730 

1010 GOTO 450 

1020 REM xxxxxxxxxx>kxxx)k>kxx>kxxxx)kxxx>kx>k>kx)kx.xxx)K 

1030 REM xxokx DATA ENTRIES FOLLOW Kaon********* 

1040 DATA ED k JUL 1 1967fIMfDPT # 1 SHOT 

1050 DATA ED r AUG 1 1967fIMvDPT # 2 SHOT 

1060 DATA JIM » SEP 1 1 967 f.TM» TETANUS SHOT 

1070 DATA ED f NOV 1 1967fIMfDPT # 3 SHOT 

1080 DATA JIM* JAN 1 1 968 v IL f CHICKEN POX 

1090 DATA ED f JAN 14 1 968 fILf CHICKEN POX 

1100 DATA JEAN f JAN 15 1 968 fILf CHICKEN POX 

1110 DATA JIMfJUN 1 1968 fV f PHYSICAL CHECK 

1120 DATA END 



RUN 

SHALL I PRINT ALL OF THE ITEMS ( Y OR N )? 

'? Y 

WOULD LIKE THE RECORDS IN ENTRY ORDER (E) OR SORTED <S>? 

'? E 



NAME 



DATE 



DESCRIPTION 



ED 


JUL 


1 1967 


IMMUNIZATION 


DPT # 1 SHOT 


ED 


AUG 


1 1967 


IMMUNIZATION 


DPT # 2 SHOT 


JIM 


SEP 


1 1967 


IMMUNIZATION 


TETANUS SHOT 


ED 


NOV 


1 1967 


IMMUNIZATION 


DPT *3 SHOT 


JIM 


JAN 


1 1968 


ILLNESSES 


CHICKEN POX 


ED 


JAN 


14 1968 


ILLNESSES 


CHICKEN POX 


JEAN 


JAN 


15 1968 


ILLNESSES 


CHICKEN POX 


JIM 


JUN 


1 1968 


VISITED DOCTOR 


PHYSICAL CHECK 



BREAK IN 480 



RUN 

SHALL I PRINT ALL OF THE ITEMS ( Y OR N )? 

? N 

ENTER THE NAME TO SELECT 

? JIM 
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NAME 



DATE 



DESCRIPTION 



JIM 


SEP 


1 


1967 


JIM 


JAN 


1 


1968 


JIM 


JUN 


1 


1968 



IMMUNIZATION TETANUS SHOT 
ILLNESSES CHICKEN POX 
VISITED DOCTOR PHYSICAL CHECK 



BREAK IN 480 



MAJOR SYMBOL TABLE - HEALTH RECORDS 

x j 

I NAME .. DESCRIPTION I 

j x 

I C0*( ).. MASTER CATEGORY CODE ARRAY I 

I Cl$< ).. MASTER CATEGORY DESCRIPTION ARRAY I 

I M .. MAXIMUM NUMBER OF DATA READS I 

I X$ , . NAME TO SELECT I 

I N$ .. NAME IN I 

I D$ . , DATE IN I 

11$ .. DESCRIPTION IN I 

I C$ .. CATEGORY CODE IN I 

! x 

FUNCTIONS USED 
j ! 

I NAME .. DESCRIPTION I 

! j 

I TAB .. FORMAT PRINT LINES I 

I DIM .. SINGLE DIMENSION ARRAYS I 

! ! 
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BULLETIN BOARD 

Description 

A computer never forgets. This program allows the storage of notes 
and reminders for family members. 

Functions of the Program 

The program searches the data items and identifies messages and the in- 
dividual they they are directed to. It prints the messages when requested. 

Instructions for Use 

Messages must be recorded in DATA statements and deleted as their 
usefulness passes. Avoid the use of commas (,) in the message text. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

All messages are entered in the following form : 

*, Individual directed to, Message contents, Message initiator 

Output Description 

See example provided. Message is free-form, without restrictions (except 
for potential formatting problems caused by commas). 



20 REM BULLETIN BOARD PROGRAM 

30 REM jkjkxjk* DATA INITIALIZATION ***** 

fO M = 1000 

50 REM **** PROCESSING AREA **** 

60 FOR I = 1 TO M 

70 READ T* 

80 IF T*=°ENC>" THEN 250 

90 IF T*<>"*' THEN 2^0 

100 READ lit 

110 PRINT "MESSAGE FOR " ?I*> " SHOULD I PRINT IT < Y OR N )?" 

120 INPUT A* 

130 IF A$<>"Y* THEN 70 

:l/H) PRINT 

150 READ T* 

160 IF T*="END" THEN 250 

170 IF T*<>"*" THEN 220 

180 PRINT 

190 PRINT "END OF MESSAGE - I'LL LOOK FOR OTHERS" 

20 PRINT 

210 GOTO 10 

220 PRINT T* 

230 GOTO 150 

2-fO NEXT I 

250 REM xxxxx PROGRAM 'TERMINATION POINT' **** 
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260 PRINT 

270 PRINT 

280 STOP 

290 REM ^^X^JJOK^'X'JKJKXOKJK^StXaOKilOK^X^JSXOKXOKaOKaOKKXCSOKKX^X 

300 REM so»iok DATA ENTRIES F0I..LDW hook* 

3.1.0 DATA x, JIM r MOM HAS GONE TO THE STORE BE BACK AT 6j GEORGE 

320 DATA JKi-JOANj-FEED THE DOG BEFORE YOU LEAVE THE HOUSE 

330 DATA AFTER SCHOOL. HER FOOD IS IN THE PANTRY 

3't0 DATA MOM 

350 DATA *»ALL, 

360 DATA I HAVE GONE TO THE HARDWARE STORE BE BACK AT 6 

370 DATA DAD 

380 DAT'A END 



RUN 

MESSAGE FOR JIM SHOULD I PRINT IT < Y OR N )? Y 

MOM HAS GONE TO THE STORE BE BACK AT 6 
GEORGE 

END OF MESSAGE - I'LL LOOK FOR OTHERS 

MESSAGE FOR JOAN SHOULD t PRINT IT < Y OR N >? N 
MESSAGE FOR ALL SHOULD I PRINT IT ( Y OR N >? Y 



I HAVE GONE TO THE HARDWARE STORE BE BACK AT 6 
DAD 



BREAK IN 280 



MAJOR SYMBOL TABLE - BULLETIN BOARD 

I 1 

I NAME . . DESCRIPTION I 

x j 

I M .. MAXIMUM NUMBER OF DATA READS I 
I T$ .. CODE/TEXT I 

11$ .. NAME OF MESSAGE RECIPIENT I 

I j 
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SCHOOL GRADE RECORDING 



Description 

This program maintains course grade information for the review of 
academic status between report cards and provides continual progress 
analysis. 

Functions of the Program 

This program will print all information entered (in course sequence) or 
will print the grades associated with a specified course only. Courses 
and grading devices are initiated prior to reading the grade data items. 
Note the sample data provided. 

Instructions for Use 

Determine the number of courses to be monitored, and enter this num- 
ber and the course names as the first data record. Following this, 
determine the number of grading devices (tests, homework, etc.) that 
will be recorded, and enter this information as the second data record. 
Grades for course activities can then be entered and reviewed as they 
occur. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

The first two data records initialize the course and grading device in- 
formation. Their form is: 

Number of courses, Course code, Course name, . . . 

Number of devices, Device code, Device name, . . . 

For each of these forms the codes and names are repeated for the 
number of times specified. Course grade information can then be en- 
tered in the form: 

Course code, Device code, Number score, Letter grade, Date 

Output Description 

See example provided. 

Suggested Enhancements 

If your school system is consistent in its grading policies, an ideal 
enhancement would be the computation of current averages during 
the semester. 
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20 REM .SCHOOL GRADE RECORDING PROGRAM 

30 REM xcx**** DATA INITIALIZATION **** 

40 DIM C*<20> 

SO DIM C:l*<20> 

60 DIM I$(20> 

70 DIM T:!.$(20) 

80 PRINT "SHALL I PRINT ALL ENTRIES < Y OR N )?" 

90 INPUT A$ 

100 P=l 

110 K=.l 

120 IP A*<>"N" THEN 240 

130 PRINT "ENTER THE COURSE TO PRINT " 

140 INPUT C3* 

150 READ N 

160 FOR 1=1 TO N 

170 READ C*<I)fC1*(I> 

180 IF C3*»C1*<I> THEN 230 

190 NEXT I 

200 PRINT "COURSE NOT FOUND" 

210 RESTORE 

220 GOTO 80 

230 K=I 

240 PRINT 

250 RESTORE 

260 PRINT 

270 PRINT 

280 REM xoksok PROCESSING AREA xxxjxc 

290 READ N 

300 FOR 1=1 TO N 

310 READ C*<I)fC1*(I) 

320 NEXT I 

330 READ N2 

340 FOR 1=1 T0,N2 

350 READ T*<X)»T1*(I") 

360 NEXT I 

370 PRINTi:i*(K) 

380 READ CO* 

390 IF C0*="END" THEN 470 

400 READ T0$i>SrG*»D* 

410 IF C0*OC$(K) THEN 380 

420 FOR J=l TO N2 

430 IF T*<J)=T0* THEN 450 

440 NEXT J 

450 PRINTTAB(P)?Si"<"?G*i ") "JT1*CJ>J" -• "JD* 

460 GOTO 380 

470 PRINT 

480 RESTORE 

490 PRINT 

500 K=K+1 

510 IF A*<>"V THEN 530 

520 IF l«-N THEN 280 

530 REM **** PROGRAM TERMINATION POINT xxxx 

540 PRINT 

550 PRINT 

560 STOP 

570 REM XOiCilOKJKttJKXOOOSOK 

580 REM J***** DATA ENTRIES FOLLOW Hon** 

590 DATA 5 , E v ENGLISH f B f BIOLOGY , H r HISTORY , F , FRENCH? A » ALGEBRA 
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600 DATA 3 1- H » HOMEWORK »Tr TEST rGt- QUIZ 
610 REM **** GRADE DATA FOLLOWS J****** 
620 DATA EH-lr78i.Cs.JUN 8 
630 DATA FfT*89»B+fJUN 9 
6'U) DATA Ei-Hf8'fi.E!»JUN 11 
650 DATA BrTf95»A»JUN 12 
660 DATA HW-ln.Bi.JUN It 
670 DATA END 



RUN 

SHALL I PRINT ALL ENTRIES < Y OR N )? 

'? Y 



ENGLISH 

78 (C) HOMEWORK - JUN 8 
84 (B) HOMEWORK - JUN 11 



BIOLOGY 

95 (A) TEST - JUN 12 



HISTORY 

(B) HOMEWORK - JUN 14 



FRENCH 

8V (B+) TEST - JUN 9 



ALGEBRA 



BREAK IN 560 

RUN 

SHALL I PRINT ALL ENTRIES ( Y OR N )? 

? N 

ENTER THE COURSE TO PRINT 

'? ENGLISH 



ENGLISH 

78 <C> HOMEWORK - JUN 8 
84 <B> HOMEWORK - JUN 11 



BREAK IN 560 
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MAJOR SYMBOL TABLE - SCHOOL GRADE RECORDING 

I— 1 

I NAME . . DESCRIPTION I 

x 1 

I C*< > ,. MASTER COURSE CODE ARRAY I 

I Cl*< >,. MASTER COURSE NAME ARRAY I 

I T$( ) ,. MASTER TYPE CODE ARRAY I 

I Tl$< ),. MASTER TYPE DESCRIPTION ARRAY I 

IP , . TAB CHARACTER I 

IK . ♦ POINTER TO SELECTED COURSE I 

I C3* . . COURSE TO PRINT I 

IN . . NUMBER OF COURSES RECORDED I 

I N2 . . NUMBER OF TYPES RECORDED I 

I TO* . . TRANSACTION TYPE IN I 

IS . ♦ TRANSACTION NUMBER GRADE IN I 

I G* . . TRANSACTION LETTER GRADE IN I 

ID? . . TRANSACTION DATE IN I 

I CO* . , TRANSACTION COURSE IN I 

j ! 

FUNCTIONS USED 
X j 

I NAME .. DESCRIPTION I 

I j; 

I TAB . , FORMAT PRINT LINES I 

I DIM . . SINGLE DIMENSION ARRAYS I 

X j 
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ACHIEVEMENT RECORDING 

Description 

This program monitors progress toward satisfying the requirements 
necessary to achieve a goal. An ideal application is recording progress 
toward the completion of Scouting requirements for progression to the 
next rank. 

Functions of the Program 

The program determines the number of individuals (or groups) that 
will be recorded. Following this, the achievement requirements and the 
individual's status on each item is read, interpreted, and printed. 

Instructions for Use 

Enter the number of individuals recorded, followed by their names. 
Achievements and requirements are then determined and entered, fol- 
lowed by a status indicator for each individual. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

1. The first data item initializes the individual's names: 

Number of individuals recorded, Individual's names, 

2. Each achievement (goal) is then identified by the form: 

*, Achievement name 

3 . The requirements for attaining each goal and the status of progress 
toward that goal is entered in the following form: 

Requirement, Status codes, (one for each individual) 

Output Description 

See example provided. 

Suggested Enhancements 

The status indicators are ideal candidates for storage on disk or tape- 
storage devices. 



20 REM ACHIEVEMENT RECORDING PROGRAM 
30 REM xhokxokjk DATA INITIALIZATION **** 
-TO DIM N*(10J 
50 DIM s*ao> 
60 M==.1.0 00 
70 READ N 
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80 FDR 1=1 TO N 
90 READ N*(X> 
100 NEXT I 
1.1.0 PRINT- 
ISO PRINT 
130 PRINT 

i-90 REM *»««;« PROCESSING AREA hokxok 
150 PRINT' " ACHIEVEMENT/REQUIREMENT " ? 
160 FOR K= 1TO N 

170 PRINTTAB ( (K-.1. )*7+30 ) »N*<IO J 
.1.80 NEXT K 
.1.90 PRINT 

200 PRINT " - — - - - " t 

2.1.0 FOR K=l TO N 

220 PRINTTAB ( < K--1 ) *7+30 > ? " " 5 

230 NEXT K 

2^0 PRINT 

250 FOR 1=1 TO M 

260 READ T* 

270 IF T*= U END" THEN -120 

20 IF TfcO"*" THEN 3'10 

290 READ A* 

300 PRINT 

310 PRINTA* 

320 PRINT 

330 GOTO "110 

34 PRINTTAB ( 3 ) > T* ? 

350 FOR K = 1 TO N 

360 S*00*=" " 

370 READ S$<K> 

380 PRINTTAB < CK--1 >*'7-i-30 > J " < " 5S* CK) i " ) " > 

390 NEXT K 

■400 PRINT 

•410 NEXT I 

■420 REM xokxokxokhokxok PROGRAM TERMINATION POINT' as******* 

•'tOO PRINT 

-<H0 PRINT 

'ISO STOP 

•460 REM *>KX«w>K*:)K)iOK»OKaoKX»!»c;Kxx(ji<xx>Kxx*)K)iop;xKS< 

•470 REM aoioiOKJiOKXOiOfOK DATA ENTRIES FOLLOW khokxokxok* 

-480 DATA 5 v JIM? CHUCK > JACK- BOB » CARL 

•490 DATA Wi-OUTDOORSMAN 

500 DATA BUILDING A CAMPFIRE 

510 DATA Y»NfY?N?Y 

520 DATA SWIMMING 3 LAPS 

530 DATA YmY^NvN^N 

5^0 DATA CAMPING OVERNIGHT 

550 DATA Y^YfYhYpY 

560 DATA xir CRAFTSMAN 

570 DATA BUILDING A BOOKCASE 

580 DATA NpN^NpN 

590 DATA REPAIRING A BENCH 

600 DATA YrN^NrNvN 

610 DATA END 

RUN 
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ACHIEVEMENT/REQUIREMENT 



OUTDOORSMAN 



JIM 



CHUCK JACK 



BOB 



CARL 



BUILDING A CAMPFIRE 
SWIMMING 3 LAPS 
CAMPING OVERNIGHT 



(Y) 
(Y) 
<Y> 



(N) 
<Y> 
<Y> 



(Y) 
<N> 
<Y) 



<N> 
<N> 
<Y) 



(Y) 
(N) 
(Y) 



CRAFTSMAN 



BUILDING A BOOKCASE 
REPAIRING A BENCH 



<N> 
<Y> 



(N> 
<N> 



<N) 
<N) 



(N) 
(N) 



<N> 
<N) 



BREAK IN 450 



MAJOR SYMBOL TABLE - ACHIEVEMENT RECORDING 

X 1 

I NAME .. DESCRIPTION I 



N$< ) .. NAMES OF PEOPLE ENTERED 



S$ 

M 

N 

A$ 

T$ 



COMPLETION CODE INDICATOR ARRAY 
MAXIMUM NUMBER OF DATA READS 
NUMBER OF PEOPLE RECORDED 
ACHIEVEMENT 
CODE IN/TEXT 



FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 
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CALENDARS 

Description 

You'll never need to buy another calendar with this program that pro- 
duces calendars for any month or year in a form that permits writing in 
comments. 

Functions of the Program 

The program's functions are primarily directed toward the printing of a 
nicely formatted calendar. Each major printing function is separated into 
an independent module for clarity and your extension or modification. 

Instructions for Use 
Run the program. 

Data Entry 

Not applicable. The starting month and year, and the number of months 
to be printed, are entered in response to program requests. 

Data Format 

Not applicable. 

Output Description 

See example provided. The number of months printed is determined 
during the program's execution. 



20 RETM CALENDAR PRODUCING PROGRAM 

30 REM **** DATA. INITIALIZATION **** 

40 N=0 

50 S0=0 

60 L0=0 

70 Ml==7 

80 M2=7 

90 M-4-1 

100 DIM D0*<7) 

HO DIM NO <12> 

130 READ DO*<i>*DO*<2)fDO^3>»D0*<4>FD0*C5>»DO*<6)i.D<Mli(7> 

1<<H) FOR I =1 TD 12 

150 READ M0*(I)»N0(I) 

170 PRINT "ENTER THE FIRST MONTH AND YEAR TD BE PRINTED I.E.*. JANi-1990' 

III PRINT-ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH STARTS ON" 

210 PRINT 'ENTER THE NUMBER OF MONTHS TO BE PRINTED I.E.!- 10" 

220 INPUT N 

230 PRINT "DO YOU WANT A PAGE ALIGNMENT < Y OR N >? 

240 INPUT Al* 
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250 IF AltfO"Y" THEN 280 

260 PRINT "BEFORE THE PRINTING OF EACH MONTH A '?' WILL APPEAR" 

270 PRINT "ALIGN TO THE TOP OF PAGE BEFORE PRESSING THE RETURN" 

230 FOR I=1T012 

290 IF M<4K>M0!|;<I> THEN 310 

300 m=x 

310 NEXT I 

320 FOR K = 1TO 7 

330 IF D:l.i|iOD0$(K) THEN 330 

340 SO=K 

350 NEXT K 

360 REM **************:<aK;o!**x**»**** 

370 REM HO********- PROCESSING LOOP ****** 

380 FOR I2=M4 TO M4+N-1 

390 NO < 2) =28 

400 Y=Y1 

410 IF INT<Y/4>OY/4 THEN 430 

420 NO < 2) ==29 

■f30 10 = 

440 M3--I2 

450 IF M3<=12 THEN 510 

460 M3=M3~12 

470 Y=Yi+l 

480 IF INT(Y/4)OY/4 THEN 500 

490 N0<2)=29 

50 GOTO 450 

510 IF 30=0 THEN 620 

520 GOSUB 690 

530 FOR J=l TO M2 

540 GOSUB 790 

550 IF NIKM3XI0 THEN 610 

560 GOSUB 850 

570 GOSUB 1110 

580 GOSUB 1110 

590 L0=L0+:l 

60 NEXT J 

610 REM ***** PROGRAM TERMINATION POINT **** 

620 IF S0OS THEN 640 

630 50=1 

640 NEXT 12 

650 PRINT 

660 PRINT 

670 STOP 

680 REM **** SUBROUTINES FOLLOW ***** 

690 REM **** PRINTS HEADINGS ***** 

700 IF A1*<>"Y" THEN 720 

710 INPUT X* 

720 PRINT 

730 PRINT" "?M0*<M3)5" "iY 

740 FOR I == 1 TO 7 

750 PRINT" "JD0*<I)J" "> 

760 NEXT I 

770 PRINT 

780 RETURN 

790 REM **** PRINTS SCHEDULE OUTLINE **** 

80 FOR 1=1 TO Ml 

31 PRINT " I ' i 

820 NEXT I 

830 PRINT"!" 

840 RETURN 

850 REM **** PRINTS CALENDAR DAY LINE ***** 

860 FOR' I = 1 TO Ml 

870 IF JOl THEN 900 

880 IF IOS0 THEN 900 
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890 10=1 

900 IF N0CM3) >=I0 THEN 940 

910 PRINT"! "f 

920 10=10+1 

930 GOTO 1060 

9^0 IF I0>9 THEN 1020 

950 IF I0O0 THEN 980 

960 PRINT "I •} 

970 GOTO 1060 

980 IF I0<10 THEN PRINT"! "flOJ" "flGOTO 990 

935 PRINT"! "?I0»" "t 

990 10=10+1 

1000 S1=I+1 

1010 GOTO 1060 

1020 IF I0<10 THEN PRINT"! "}X0t" " i JGOTO 1030 

1025 PRINT"! "J 10?" "i 

1030 S1=I+1 

1040 10=10+1 

1050 S0=I+1 

1060 NEXT X 

1070 PRINT"!" 

1080 L0=0 

1090 S0=S1 

1100 RETURN 

1110 REM xokxx VERTICAL LINES **** 

1120 FOR 1=1 TO Ml 

1130 PRINT "I »; 

1140 NEXT I 

1150 PRINT"!" 

1160 RETURN 

1170 REM >«*:»(»: DATA FDR INITIALIZATION *x<xok 

1180 DATA SUN»MONyTUE»WED»THUrFRI»SA'r 

1190 DATA JANj3:UFEB J 2B»MARy31 ! .APR>30jMAY i .31vJUN>'30 

1200 DATA JUL»31rAUGF31,SEP»30yOCTp31»NOV»30»DECr31 

1210 REM tftfSSXJKSOKJKHCKHtXC^JKXJtOKJKJKJKJKXJOOKJKtt 



RUN 

ENTER THE F r IRST MONTH AND YEAR TO BE PRINTED I.E.* JAN>1980 

? DEC j 1979 

ENTER THE DAY OF THE WEEK THAT THE FIRST MONTH STARTS ON 

? SAT 

ENTER THE NUMBER OF MONTHS TO BE PRINTED I.E.* 10 

? 1 

DO YOU WANT PAGE ALIGNMENT < Y OR N )? 

? Y 

BEFORE THE PRINTING OF EACH MONTH A '?' WILL APPEAR 

ALIGN TO THE TOP OF PAGE BEFORE PRESSING THE RETURN 

-? 
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DEC 1979 
SUN MON TUE WED THU FRT SAT 

I j j j j T j j 

1 I I I I I III 

I I I I I I I I 

I I I I I I I I 

j j 1 j j j j x 

I2I3I4I5I6I7I8I 
I I I I I I I I 

I I I I I I I I 

It ! x j j x j j 

1 9 I 10 I 11 I 12 I 13 I 14 I 15 I 
I I I I I I I I 

I I I I I I I I 

! ! ! j j j j j 

I 16 I 17 I 18 I 19 I 20 I 21 I 2? I 

I I I I I I I I 

1 I I I I I I I 

I j ^ ! j j j j 

I 23 I 24 I 25 I 26 I 27 I 28 I ?9 I 

I I I I I I I " I 

I I I I I I I I 

! j j ! j j j j 

I 30 I 31 I I I i ! T 

I I I I I I I I 

I I II I I i x 

j ! ! : j j j j 



BREAK IN 670 



MAJOR SYMBOL TABLE 



CALENDARS 



I NAME 

N 
Ml 

00* ( 
N0< : 
M0*< 

m 

Yl 
Dl* 
10 
Y 



DESCRIPTION 

NUMBER OF MONTHS TO PRINT 

MAXIMUM HORIZONTAL PRINT 

DAY OF WEEK ARRAY 

DAYS IN MONTH ARRAY 

MONTH NAME ARRAY 

FIRST MONTH TO PRINT 

FIRST YEAR TO PRINT 

DAY OF WEEK MONTH STARTS ON 

DAY OF MONTH 

YEAR FOR PRINTING 



— i 

I 

. — i 

I 
I 
I 
I 
I 
I 
I 
I 
I 
I 
-I 



FUNCTIONS USED 



I NAME 



. . DESCRIPTION 



I INT . . CONVERTS NUMBER TO INTEGER I 

I DIM .. SINGLE DIMENSION ARRAYS I 

! j 



Miscellaneous Programs for the Home 221 



MULTIPLE PRINTS 

Description 

This program will assist in the solution of the problem associated with 
producing multiple copies of a single item. 

Functions of the Program 

The program accepts text from DATA items and prints the number of 
copies, and in the form, specified. 

Instructions for Use 

Format your information, and enter it as data prior to running the 

program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The format for data entry is free-form. Note that commas will affect 
formatting. 

Output Description 

See example provided. The form, spacing, and number of copies is 
determined by your response to the program's questions. 



20 REM MULTIPLE LIST PROGRAM 

30 REM ****: PROCESSING AREA xrtxx 

•fO PRINT" HOW MANY COPIES OF THE ITEM ARE TO BE PRINTED?" 

50 INPUT C 

60 PRINT "DO YOU WANT TO ALIGN TO TOP OP PAGE BETWEEN PRINTS <Y OR N> " 

70 INPUT A* 

80 IF AHK>"Y" THEN 150 

90 PRINT "ENTER THE NUMBER OF LINES PER PAGE" 

.1.00 INPUT L.0 

110 PRINT" ENTER' THE NUMBER OF SPACES FROM THE TOP FOR PRINTING " 

120 INPUT S 

130 L=S 

1-40 GOTO 170 

150 PRINT "HOW MANY SPACES BETWEEN PRINTS?" 

160 INPUT S 

170 PRINT "ALIGN PAPER AND PRESS RETURN (I'LL SPACE "iSt" SPACES)" 

180 INPUT G* 

190 FOR J-l TO S 

200 PRINT 

210 NEXT J 

220 FOR :i."=l TO C 

230 READ T* 

2-fO IF T*=°EM>" THEN 280 

250 PRINT T* 
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260 L--L+1 

270 GOTO 230 

280 REM xxxx END OF A PRINT' xokjk** 

290 IF A*=="Y" THEN 3 J U) 

300 FOR J-l TO S 

3.1.0 PRINT 

320 NEXT J 

330 GOTO 380 

3-10 FOR J=L TO 1.0+S 

350 PRINT 

360 NEXT J 

370 L=S 

380 RESTORE 

390 NEXT I 

■100 REM KKiKXJKKIKXKKXXiKXKXiSKKXeKilOiiSKXiiOK 

^10 REM *>kxok PROGRAM TERMINATION POINT xxxx 

tza PRINT 

-930 PRINT 

•"HO PRINT 

•950 STOP 

160 REM KKKKJKXJKXKKXKKXiKXCJIOICXJKJIOKXOKXOIfX 

■'•f/O REM Ho*** TEXT FOR PRINTING FOLLOWS xxxxx 

«80 DATA • HERE IS THE TEXT THAT IS TO BE PRINTED. I HAVE" 

^90 DATA "PLACED IT IN QUOTES TO ALLOW THE USE OF COMMAS IN THE" 

500 DATA CONTENTS, THE DATA WILL B'E ACCEPTED CORRECTLY (AS THIS 

510 DATA LINE IS IF I HAVEN'T USED ANY COMMAS. THE TEXT IS TERMINATED 

520 DATA "WITH A DATA END CARD, THIS IS THE LAST CARD IN THE PROGRAM." 

530 DATA END 



RUN 

HOW MANY COPIES OF THE ITEM ARE TO BE PRINTED? 

? 2 

DO YOU WANT TO ALIGN TO TOP OF PAGE BETWEEN PRINTS <Y OR N>"? 

? N 

HOW MANY SPACES BETWEEN PRINTS 

? 5 

ALIGN PAPER AND PRESS RETURN (I'LL SPACE 5 SPACES) 

'? 



HERE IS THE TEXT THAT IS TO BE PRINTED. I HAVE 
PLACED IT IN QUOTES TO ALLOW THE USE OF COMMAS IN THE 
CONTENTS. THE DATA WILL BE ACCEPTED CORRECTLY (AS THIS 
LINE IS IF I HAVEN'T USED ANY COMMAS. THE TEXT IS TERMINATED 
WITH A DATA END CARD? THIS IS THE LAST CARD IN THE PROGRAM. 



BREAK IN 450 



MAJOR SYMBOL TABLE 



MULTIPLE PRINTS 



— :[ 

I 

j 

. NUMBER OF COPIES TO PRINT I 
, LINES PER PAGE I 
. SPACES BEFORE PRINTING I 
. TEXT I 
. LINE COUNT I 
j 



I NAME 

I 

I C 
I LO 
I S 



T$ 
L 



DESCRIPTION 
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PAPER ROUTE - BASIC VERSION 

Description 

Paper route delivery schedule records and collection lists can be a tedi- 
ous and time-consuming task for the young entrepreneur. This program 
can provide much needed assistance in these tasks. 

Functions of the Program 

The program accepts customer and price information from DATA state- 
ments and produces either a collection list or a route delivery list. 
Following the completion of the delivery list, customer and paper counts 
are produced to assist in ordering for the week. 

Instructions for Use 

The price of the various delivery options must be supplied along with a 
customer list, complete with their delivery requirements, prior to 
running the program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

The following data formats are required: 

1. The first data record provides the price of delivery information for 
collection list use: 

Sun cost, Mon cost, . . . , Sat cost, Weekly cost, Monthly cost 

2. Customer delivery items are entered using the following form: 

Name, House number, Street name, Delivery schedule 
The delivery schedule is coded as follows: 

1. M is entered for monthly deliveries. 

2. W is entered for full weekly deliveries. 

3. D is entered to indicate that the customer receives papers only on 
selected days. It is followed (separated by a comma) by the days 
that the customer receives delivery (1-Sun, 2-Mon, . . . 7-Sat). See 
example data provided. 

Output Description 

See example provided. Two forms of output can be selected: 

1. A list for collection purposes. 

2. A daily delivery list for the route. 
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20 REM PAPER ROUTE PROGRAM - BASIC 

30 REM xxxx DATA INITIALIZATION xxxx 

40 M=.t0000 

50 DIM PC7> 

60 DIM D*(7) 

70 DIM CO (7) 

80 PRINT 

90 PRINT 

100 PRINT" TWO OPTIONS ARE AVAILABLE u 

110 PRINTTABdO)?"!, PRINT OF COLLECTION LIST" 

120 PRINTTAB(10)J"2. PRINT OF ROUTE LIST" 

130 PRINT 

140 PRINT "ENTER OPTION NUMBER DESIRED" 

150 INPUT O 

160 REM xxxx ENTRY OF NUMBER TO PRINT xxxx 

170 READ CO<l)»CO<2),CO(3)i-CO<t),C0<5)i.CO<6)rC0<7) > Cl ! .C2 

180 IF OOl THEN 220 

190 IF CZO0 THEN 220 

200 PRINT "ENTER THE NUMBER OF WEEKS FOR MONTHLY CHARGES" 

210 INPUT NO 

220 REM xxxx PROCESSING STARTS xxxx 

230 PRINT "POSITION PAPER NOW" 

240 INPUT G* 

250 FOR 1=1 TO M 

260 READ Nfc 

270 IF N*=" END "THEN 30 

280 READ A1*»A2*»T* 

290 IF T*="D" THEN 340 

300 FOR J=-l TO 7 

310 D*<J)=" " 

320 NEXT J 

330 GOTO 430 

340 K=l 

350 FOR J=l TO 7 

360 D$<J)="x" 

370 NEXT J 

380 READ DO 

390 IF D 0=0 THEN 430 

400 D*(D0>=" " 

410 K=K»1 

420 IF K<=7 THEN 380 

430 IF 0=1 THEN 560 

440 REM xxx OPTION 2 xxxx 

450 IF lOl THEN 490 

460 PRINT" S M T W T F S" ;TAB<25> ? "ADDRESS" J TAB < 45) ? "NAME" 

470 PRINT " « ? TAB (25 ) } ■ » ; 

480 PRINTTABC45) t " ■ 

490 FOR J=l TO 7 

500 IF D*(J)="x» THEN 520 

510 P<J)=P<J)+1 

520 NEXT J 

530 PRINT" ( " ?D$a> f " > ( " JD$(2) ', » M " f D*<3) t " > < " ?D*<4) J » ) ( "D*<5> i 

540 PRINT" ) < •W$(6> J " ) < "D*<7> J " ) » JTAB<25) ;A1$J " " JA2*?TAB<45) JN* 

550 GOTO 780 

560 REM xxxx OPTION 1 xxxx 

570 IF I'Ol THEN 60 

580 PRINT ■ ADDRESS " t TAB ( 30 ) J ■ OWED " ? TAB < 42 ) ? ■ NAME " 

590 PRINT » » % TAB ( 30 > i " « ? TAB ( 42) i u » 

600 REM xxxx COMPUTE BILL xxxx 

610 IF T*<>»M" THEN 670 

6Z0 IF C2=0 THEN 650 

630 T1=C2 

640 GOTO 750 

650 Tl=ClxN0 
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660 GOTO 750 

670 IT 7*0 "W" THEN 70 

680 T1=C1 

690 GOTO 750 

700 J=l 

710 IF D*<J>=**° THEN 730 

720 T1~T1+C0<J> 

730 J=J+1 

740 IF J<=7 THEN 7.1.0 

750 T2=T2+T1 

760 PRINTA1*? " ";A2$;7AB<30>?T1>TAB<42)?N$ 

770 T1=0 

780 NEXT I 

790 REM XXXXXXXXlKXXllUKXlMKXXXXXXKXXyKXXXX 

800 REM **x<* TERMINATION POINT ***)« 

BIO IF OOl THEN 860 

82 PRINTT AB ( 3 ) t " " 

830 PRINTTABC 16 K" TOTAL OWED " ?TAB(30) JT2 

840 PRINT 

850 GOTO 990 

860 PRINT' 

870 PRINT " JOCSKXjICXjKXSKJKX**************** " 

880 PRINT "CUSTOMER COUNT = "J 1-1 

890 PRINT 

90 PRINT "DAILY COUNT" 

910 PRINT "SUNDAY ">P<1> 

920 PRINT "MONDAY "5P<2) 

930 PRINT "TUESDAY "5P<3) 

9-40 PRINT "WEDNESDAY "5P<4) 

950 PRINT " THURSDAY " ? P < 5 ) 

960 PRINT "FRIDAY ">P<6) 

970 PRINT " SATURDAY " i P < 7 ) 

98 PRINT " iKJKXJKXXXXXJKXXXXiKWXJIillOICXXJKXJIOKJIC " 

990 PRINT 
1000 STOP 

1010 REM XiKKJIOIiSKKJKXJKXXXJKXilOOGICJieXJIO!: 

1020 REM DATA ENTRIES FOLLOW 

1030 REM XKXXXJKXKXJKSKJKXilOKjOIXJKXXJIOK 

1040 REM FIRST ENTRY IS COST PER DAY (1-7) r COST PER WEEK.. PER MONTH 

1050 REM IF MONTH=0 THEN MONTH CHARGE WILL BE BASED ON # WEEKS 

1060 DATA .50j.10j.10) .10s .10? . 10 ? . 10 >• 1 .25?4.75 

1070 DATA JOHN R. DOE 

1080 DATA S55»SM0KEY DRIVE 

1090 DATA W 

1100 DATA JOSEPH R. WESTONBY 

1110 DATA 456*EASERLY ROAD 

1120 DATA M 

1130 DATA JANE H. SMITH 

1140 DATA 170 0*SMQKEY DRIMEjM 

1150 DATA RICHARD F. JONES 

1160 DATA 1213fEASERLY ROaDjDjIjSsjO 

1170 DATA WILLIAM WILLIAMS 

1180 DATA 123-9 rEASERLY ROAD»D»1>2»3j4»5j6i.O 

1190 DATA END 
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RUN 

TWO OPTIONS ARE AVAILABLE 

1. PRINT OF COLLECTION LIST 

2. PRINT OF ROUTE LIST 

ENTER OPTION NUHBER DESIRED 

? 1 

POSITION PAPER NOW 
•? 



ADDRESS 



OWED 



555 SMOKEY DRIVE 




1.25 


456 EASERLY ROAD 




4.75 


1700 SMOKEY DRIVE 




4.75 


1213 EASERLY ROAD 




.6 


1234 EASERLY ROAD 




1 


TOTAL 


OWED 


12.35 


BREAK IN 1000 






RUN 







NAHE 



JOHN R. DOE 
JOSEPH R. WESTONBY 
JANE H.SMITH 
RICHARD F. JONES 
WILLIAM WILLIAMS 



TWO OPTIONS ARE AVAILABLE 

1. PRINT OF COLLECTION LIST 

2. PRINT OF ROUTE LIST 

ENTER OPTION NUMBER DESIRED 

? 2 

POSITION PAPER NOW 

f 



W T 



ADDRESS 



555 SMOKEY DRIVE 
456 EASERLY ROAD 
1700 SMOKEY DRIVE 
1213 EASERLY ROAD 
1234 EASERLY ROAD 



NAME 



JOHN R. DOE 
JOSEPH R. WESTONBY 
JANE H.SMITH 
RICHARD F. JONES 
WILLIAM WILLIAMS 



CUSTOMER COUNT = 5 

DAILY COUNT 

SUNDAY 5 

MONDAY 4 

TUESDAY 5 

WEDNESDAY 4 

THURSDAY 4 

FRIDAY 4 

SATURDAY 3 
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MAJOR SYMBOL TABLE - PAPER ROUTE - BASI 


C VER 
I 
I 


3ION 


I 


NAME 


t 


DESCRIPTION 




I 


M 


9 


MAXIMUM NUMBER OF DATA READS 




I 


P< ) 


♦ 


DAILY PAPER COUNT 


I 




I 


D$( ) 


* 


DAILY DELIVERY INDICATOR 


I 




I 


CO( > 


. 


PRICE OF DAILY PAPER 


I 




I 





, 


OPTION NUMBER 


I 




I 


CI 


9 


PRICE OF WEEKLY DELIVERY 


I 




I 


C2 


, 


PRICE FOR MONTHLY DELIVERY 


I 




I 


N$ 


e 


CUSTOMER NAME 


I 




I 


Al* 


. 


CUSTOMER HOUSE NUMBER 


I 




I 


A2$ 


« 


CUSTOMER STREET ADDRESS 


I 




I 


T* 


9 


FREQUENCY OF DELIVERY 


I 




I 


Tl 


4 


AMOUNT OWED BY INDIVIDUAL 


I 




I 


T2 


► « 


TOTAL OWED 


I 

I 
I 






FUNCTIONS USED 




I 


NAME 


► 4 


DESCRIPTION 




I 


TAB 


» ♦ 


FORMATS PRINT LINES 




I 


DIM 


, , 


SINGLE DIMENSION ARRAYS 


I 
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PAPER ROUTE - EXTENDED VERSION 

Description 

This program extends the basic version by allowing the carry over of 
noncollected items from the previous collection period and assists the 
user by projecting his expenses for the period. 

Functions of the Program 

The functions of this program are identical to the basic version except 
that computations have been added to carry over money owed from the 
previous period. An additional function has been added to accept addi- 
tional charges/credit items and compute a projected bill for the papers 
and services received. 

Instructions for Use 

See the basic version. Additional information must be supplied for the 
amounts owed from previous periods. 

Data Entry 

Data is entered using DATA statements. Additional charges and credits 
are entered at the keyboard. 

Data Formats 

Data formats are identical to the basic version except that the customer 
record is of the form: 

Name, House number, Street name, Delivery schedule, 
Amount owed from the previous period 

Output Description 

See example provided. The third option prints paper counts and the 
costs of delivery. 



20 REM PAPER ROUTE PROGRAM - EXTENDED 

30 REM **** DATA INITIALIZATION **** 

40 M=.'L0 000 

SO DIM P<7> 

60 DIM T(8> 

70 DIM BO (7) 

80 DIM D$(7) 

90 DIM CQ<7) 

100 PRINT 

.1.10 PRINT 

120 PRINT" THREE OPTIONS ARE AVATI ABI E" 

130 PRINTTAEKl ())?-!. PRINT OF COLLECTION LIST" 

110 PRINTTABC10);»2. PRINT OF ROUTE I 1ST" 

150 PRINTTAB(10)?»3. BILL COMPUTATION" 
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160 PRINT 

170 PRINT "ENTER OPTION DESIRED" 

180 INPUT 

190 REM **x»s ENTRY OF NUMBER TO PRINT xokjkk* 

200 READ C0a>rC0<2> rC0<3) vC0<4) »CCK5) ?C0<6) fC(I<7) fCl»C2 

210 READ BO < 1 ) rBO <2> ?B0 <3) f BO <4) rBO <5) f BO (6) pBO <7> 

220 IF OOl THEN 260 

230 IF C2 <>(» 'THEN 260 

2-10 PRINT-ENTER THE NUMBER OF WEEKS FOR MONTHLY CHARGES" 

250 INPUT' NO 

260 REM sokjkjkw* PROCESSING STARTS xxxxxx 

270 PRINT "POSITION PAPER NOW" 

280 INPUT (3* 

290 FOR 1=1 TO M 

300 READ N* 

3.1.0 IF N$™"END D THEN 930 

320 READ Al*fA2*fT* 

330 IF T$="D" THEN 380 

340 FOR J==i TO 7 

350 DtfCJ>=" " 

360 NEXT J 

370 GOTO 170 

380 K=l 

390 FOR' J»l TO 7 

100 D*(J)=="* n 

410 NEXT J 

120 READ DO 

430 IF D0==0 THEN 470 

440 D*(D0)==" " 

450 K=K+1 

460 IF KO-7 THEN 420 

470 READ B 

480 IF 0=3 THEN 860 

490 IF 0=1 THEN 620 

50 REM soksc OPTION 2 ***« 

510 IF IO:l. THEN 550 

520 PRINT" S M T W T F S" J TAB < 25) J "ADDRESS" ?TAB<45> i "NAME" 

530 PRINT" - - " i TAB (25) i " - -" i 

540 PRINTTAB(45) i " -~" 

550 FOR ,>=! TO 7 

560 IF D*<J)='-">k" THEN 580 

570 P<J)==P(J) + 1 

580 NEXT J 

590 PRINT" ( »D$<1 > i " ) ( " ?D$<2) t " ) < " JD$(3> J " )< " ?D*(4) ? " ) ( " JD*(5) * 

600 PRINT" ) < " ?D*(6) i " ) ( " ?D*<7) i " ) " * TAB (25) ?AHP? " " ?A2*?TAB(45) ?N* 

610 GOTO 910 

620 REM MJOK OPTION 1 **k* 

630 IF IOl THEN 660 

61 PRINT " ADDRESS " t TAB < 30 ) i " OWED ' > TAB < 12 ) i " NAME " 

650 PRINT " " 5 TAB < 3 > J " " ? TAB ( 42 ) ? " 

660 REM so*** COMPUTE BILL 

670 IF T»<>"M" THEN 730 

680 IF C2=0 THEN 710 

690 T1-C2+B 

70 GOTO 820 

7.1.0 T1=C1*N0+B 

720 GOTO 820 

730 IF T*<>*W THEN 760 

740 T1=C1+B 

750 GOTO 820 

760 J==l 

770 Tl-B 

780 IF D*<J) = ">k" THEN B00 

790 T.1»T1+C0<J> 
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800 J=J+1 

810 IF J<=7 THEN 780 

820 T2=T2+T1 

830 PRINTA1*?" " } A2*f TABOO ) !T1 STABC42) ?N$ 

840 Ti=0 

850 GOTO 910 

860 REM kxjk OPTION 3 PREP *** 

870 FOR J= 1 TO 7 

880 IF D$(J>="x" THEN 900 

890 P(J)=P(J>+1 

900 NEXT J 

910 NEXT I 

920 REM xxxoiixxxoiosoidKyitxoxxxuioKxxxxxyKxxxxxxx. 

930 REM xikxjk TERMINATION POINT **** 

940 IF 0O.1. THEN 990 

950 PRINTTAB (38)' — - » 

960 PRINTTAEK 16)? "TOTAL OWED "?TABC30)?T2 

970 PRINT 

980 GOTO 1430 

990 PRINT 

100 PRINT " ^KW^JKWJK^KX^^KXXXttXJKXXXjKXKJKXXWXXX " 

1010 PRINT "CUSTOMER COUNT = "JI-1 

1020 PRINT 

1030 PRINT "DAILY COUNT" 

1040 PRINT"! SUNDAY "5P<1) 

1050 PRINT "2 MONDAY "?P<2) 

1060 PRINT'S TUESDAY "JP<3) 

1070 PRINT "4 WEDNESDAY "5P<4) 

1080 PRINT'S THURSDAY "5P<5) 

1090 PRINT "6 FRIDAY "?P<6) 

11 PRINT "7 SATURDAY "5PC7) 

1 1 1 PRINT " xxxxxxxxyKiKXxxxyxxxiKxxxxxxixxyiixxsKyicxx 

1120 IF DO 3 THEN 1430 

1130 PRINT "ARE THERE ANY CHANGES TO THESE COUNTS <Y OR N>?" 

1140 INPUT A* 

1150 IF Atf="N" THEN 1220 

1160 FOR 1=1 TO 7 

1170 PRINT "ENTER CHANGES FROM THE NUMBER SHOWN FOR DAY "?I?" 

1.1.80 C=0 

1190 INPUT C 

1200 P(I)=P<I)+C 

1210 NEXT I 

1220 PRINT "ENTER ANY ADDITIONAL CHANGES OR CREDITS TO YOUR BILL" 

1230 FOR 1=1 TO 10 

1240 B1=0 

1250 INPUT Bl 

1260 IF B1=0 THEN 1290 

1270 B2=B2+B1 

1280 NEXT I 

1290 PRINT 

1300 PRINT 

1310 PRINT " DAY COUNT " 5 TAB < 12 ) J " BILL " 

1320 PRINT" "JTAB<i2>?" " 

1330 FOR I =1 TO 7 

1340 T<I)=PCI)xB0 (I) 

1350 PRINTT?TAB(S> JPCI) JTABC12) f TCI) 

1360 T(B)=T<8)+T<I) 

1370 NEXT I 

1 380 PRINTTAB < 1 2 ) " " 

1390 PRINT "PAPER COSTS " ?TAB< 12) fT(8) 
1 40 PRINT " OTHER COSTS " i TAB < 1 2 ) i B2 

1410 PRINTTAB < 12 > » " " 

1420 PRINT "TOTAL BILL" } TABC12) f TC8)+B2 
1430 PRINT 
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1440 STOP 

1-450 REM aOiOKKOKaOKSOICXOKifOKJKS 

1460 REM **** DATA ENTRIES FOLLOW xokjkw 

14B0 REM FIRST ENTRY IS COST PER DAY <l-7)y COST PER WEEK? PER MONTH 

1-190 REM IF MONTH=0 THEN MONTH CHARGE WILL BE BASED ON # WEEKS 

1500 DATA .50s- .10>- .10s- .10y .10s> . 10 y . 10 s- 1 .25s-4 .75 

.1.510 DATA .35? .07s- .07? .07s- .07* .07s> .07 

1520 DATA JOHN R, DOE 

1530 DATA 555 s- SMOKEY DRIVE cW 

1540 DATA .1.1. 

1550 DATA JOSEPH R. WESTONBY 

1560 DATA 456 » EASERLY ROADs-M 

1570 DATA ,12 

1580 DATA JANE l-l . SMITH 

1590 DATA 170 Of SMOKE Y DRIVE* M 

1600 DATA .13 

1610 DATA RICHARD F. JONES 

1620 DATA 1213>-EASERLY ROADs.Ds-ls.3s-0 

1630 DATA .14 

1640 DATA WILLIAM WILLIAMS 

1650 DATA 1234 r EASERLY ROADs-D? 1 ,Z>3,t,5,6r 

1660 DATA .15 

1670 DATA END 



RUN 



THREE OPTIONS ARE AVAILABLE 

1. PRINT OF COLLECTION LIST 

2. PRINT OF ROUTE LIST 

3. BILL COMPUTATION 



ENTER OPTION NUMBER DESIRED 

? 1 

POSITION PAPER NOW 

f 

ADDRESS 



555 SMOKEY DRIVE 
456 EASERLY ROAD 
1700 SMOKEY DRIVE 
1213 EASERLY ROAD 
1234 EASERLY ROAD 



OWED 

1.36 

4.87 

4.88 

.74 

1,15 



NAME 



JOHN R. DOE 
JOSEPH R. WESTONBY 
JANE H.SMITH 
RICHARD F. JONES 
WILLIAM WILLIAMS 



TOTAL OWED 



13 



BREAK IN 1440 



RUN 



THREE OPTIONS ARE AVAILABLE 

1. PRINT OF COLLECTION LIST 

2. PRINT OF ROUTE LIST 

3. BILL COMPUTATION 

ENTER OPTION NUMBER DESIRED 

? 2 

POSITION PAPER NOW 
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M T U T 



)< )( X ) 
)( >( )( ) 
) ( X )< ) 



ADDRESS 



555 SMOKEY DRIVE 
456 EASERLY ROAD 
1700 SMOKEY DRIVE 
1213 EASERLY ROAD 
1234 EASERLY ROAD 



NAME 



JOHN R. DOE 
JOSEPH R. WESTONBY 
JANE H.SMITH 
RICHARD F. JONES 
WILLIAM WILLIAMS 



CUSTOMER COUNT = 5 
DAILY COUNT 



1 


SUNDAY 


5 


o 


MONDAY 


4 


3 


TUESDAY 


5 


4 


WEDNESDAY 


4 


5 


THURSDAY 


4 


6 


FRIDAY 


4 


7 


SATURDAY 


3 



<fc )|C ^ ?fc ifC ^c^fC ^tc )|c 2fC?|c^fC ^ vjc ^c )fv ^t )|c >fc vfc ?|c^K ^K ^ ^K 'f^ ^ ^K ^ ^K ^ 



BREAK IN 1440 



RUN 



THREE OPTIONS ARE AVAILABLE 

1. PRINT OF COLLECTION LIST 

2. PRINT OF ROUTE LIST 

3. BILL COMPUTATION 

ENTER OPTION NUMBER DESIRED 

? 3 

POSITION PAPER NOW 



JSC 3#C 3|C 5jC ifc 3iC 5fc 3fC 34C 3fC 34C 3iC 5fC 3jC 3|C 2iC 3CC 3(C 34c 34£ 3jC ^C 3iC 3iC 3#C 5k 3|C 3flC 3SC 3#C 3fc 

CUSTOMER COUNT = 5 



DAILY COUNT 



1 


SUNDAY 


5 


2 


MONDAY 


4 


3 


TUESDAY 


5 


4 


WEDNESDAY 


4 


5 


THURSDAY 


4 


6 


FRIDAY 


4 


7 


SATURDAY 


3 



ARE THERE ANY CHANGES TO THESE COUNTS 
? Y 



(Y OR N>? 



ENTER CHANGES FROM THE 
ENTER CHANGES FROM THE 
ENTER CHANGES FROM THE 
ENTER CHANGES FROM THE 
ENTER CHANGES FROM THE 
ENTER CHANGES FROM THE 
ENTER CHANGES FROM THE 
ENTER ANY ADDITIONAL 
? 9,99 
f 



NUMBER SHOWN FOR DAY 1 
NUMBER SHOWN FOR DAY 2 
NUMBER SHOWN FOR DAY 3 
NUMBER SHOWN FOR DAY 4 
NUMBER SHOWN FOR DAY 5 
NUMBER SHOWN FOR DAY 6 
NUMBER SHOWN FOR DAY 7 
CHARGES OR CREDITS TO YOUR 



6 
6 
6 
6 
6 
6 
6 
BILL 
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DAY 


COUNT 


BILL 


1 


11 


3,8 


1 


10 


.7 


3 


11 


.77 


4 


10 


.7 


5 


10 


,7 


A 


10 


.7 


7 


9 


.63 



PAPER COSTS 8.05 
OTHER COSTS 9.99 



TOTAL BILL 18.04 
BREAK IN 1440 



MAJOR 

I NAME 

I 

I 
I 



SYMBOL TABLE - PAPER ROUTE -EXTENDED 



DESCRIPTION 



M 

P( ) 

D*( 

C0< 

T< ) 

B0( 



CI 

C2 

N$ 

Al$ 

A2$ 

T$ 

Tl 

T2 

B 

Bl 

B2 



MAXIMUM NUMBER OF DATA READS 

DAILY PAPER COUNT 

DAILY DELIVERY INDICATORS 

PRICE OF DAYS DELIVERY 

TOTAL PRICE OF DAYS PAPER 

COST OF DAILY PAPER 

OPTION NUMBER 

PRICE OF WEEKLY DELIVERY 

PRICE FOR MONTHLY DELIVERY 

CUSTOMER NAME 

CUSTOMER HOUSE NUMBER 

CUSTOMER STREET 

FREQUENCY OF DELIVERY 

INDIVIDUAL BILL 

TOTAL TO COLLECT 

OWED FROM PAST PERIODS 

CHARGES CREDITS TO YOUR BILL 

TOTAL CHARGES/CREDITS TO YOUR BILL 



FUNCTIONS USED 



I 

I NAME 



DESCRIPTION 



I TAB 
I DIM 
I 



FORMAT PRINT LINES 
SINGLE DIMENSION ARRAYS 



I 
I 

— I 
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WEIGHT CONTROL 

Description 

Keeping records of weight for reviewing progress and analyzing diets is 
practiced consistently by weight clinics and health clubs. This program 
provides the capability to accomplish this effectively in your own home 
with your microcomputer. 

Functions of the Program 

The program determines the starting date for analysis and computes 
results achieved from that day forward. All data items read prior to the 
starting date are ignored by the program. The printed results provide 
daily weight information and a summarization of total results after 
completion of all processing. 

Instructions for Use 

Weight information should be recorded daily and entered as data prior 
to running the program. 

Data Entry 

All data is entered as DATA statements. 

Data Format 

The data format of the records is: 

Month, Day, Weight 

Output Description 

See example provided. 



20 REM WEIGHT CONTROL PROGRAM 
30 REM xxx DATA INITIALIZATION ***** 
to M=10 00 

50 REM *X**>K***)K**X*X<**)K;OC***>K;fOK;o:;K 

60 REM *** PROCESSING AREA NX** 

70 PRINT "SHALL WE START' AT THE BEGINNING <Y OR N>?" 

80 INPUT Ail; 

90 IF A*=="Y" THEN 2-tO 

1.00 REM **** FINDING START POINT **** 

110 PRINT "ENTER THE STARTING MONTH r DAY FOR THE REPORT I.E., JUN»30* 

120 INPUT Mliti-Dl 

130 FOR 1=1 TO M 



1-fO 


R'EAD M* 


150 


IF m*= u e:nd" THEN 220 


160 


READ D»S 


170 


IF M*<>M1* THEN 210 


ISO 


IF DOD1 THEN 210 


190 


PRINT 
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200 GOTO 290 

210 NEXT X 

220 PRINT" THAT DATE.' WAS NOT FOUND" 

230 GOTO 520 

240 PRINT 

250 PRINT 

260 PRINT 

270 READ M*fDfS 

280 REM J**** PROCESSING ENTRIES TO PRINT **** 

290 PRINT "INITIAL WEIGHT WAS "tSf ON "JD5M4 

300 PRINT 

310 PRINT " DATE " ', TAB < 9 > % " WEIGHT " i TAB < 1 6 > i " +/- 

320 PRINT " " i TAB < 9 ) t " i TAB < 1 6 ) % " 

330 T2=S 

340 D2==D 

350 FOR 1=1 TO M 

360 N=l 

370 READ M* 

380 IF M*-"l"ND" THEN 5:1.0 

390 READ D»W 

400 IF D<D2 THEN 420 

410 N=D-D2 

420 D2==D 

430 T0=W-T2 

440 PRINTDJM*n'AB<9> JW ;TAB<16> >T0t 

450 IF N=l THEN 470 

46 PRINT " *** < " ? N J " DA YS > " i 

470 T2=W 

480 N1=N1+N 

490 PRINT 

50 NEXT I 

510 REM SOK»X*:?l!*)K!K>i<iKK**«>K)K;K 

520 REM -1<*>K PROGRAM TERMINATION POINT sokhokw 

530 T4-W-S 

540 PRINTTABC15) t " ~" 

550 PRINT" TOTAL " ?TAB < 1 5 > ?T4 

560 PRINT 

570 PRINT " XJKSKJKJKJKXXJIOKiKJKXtfJKttJKJKJKXX********** " 

580 PRINT "FOR "tM.t" DAYS" 

590 PRINT "AVERAGE DAILY RESULT WAS " ?T4/N1 

600 PRINT " *>K»OKXOK»OK)K>K»OK*X!»C:«XOK>K»!«»C;K*»>K»OS!K)i<!K " 

610 PRINT 

620 PRINT' 

630 STOP 

640 REM x*****:****;****)***:**)!!)******:* 

650 REM **»< DATA ENTRY FOLLOWS *** 

660 DATA JUNf28»234 

670 DATA JUNf29-237 

680 DATA JUNr3Q»235 

690 DATA JUL fit 1-231 

700 DATA JUL * 2 r 230 

710 DATA JULf3f230 

720 DATA JUL i- 5 f 228 

730 DATA JUL f 6* 226 

740 DATA JULf8f220 

750 DATA JUL f 31 f 199 

760 DATA END 
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RUN 

SHALL WE START AT THE BEGINNNING ( Y OR N>? 

? Y 



INITIAL WEIGHT WAS 234 ON 28 JUN 



DATE 


WEIGHT 


+/- 


29 JUN 


237 


3 


30 JUN 


235 


_2 


1 JUL 


231 


-4 


2 JUL 


230 


-1 


3 JUL 


230 





5 JUL 


228 


-2 *** < 2 DAYS) 


6 JUL 


226 


—2 


8 JUL 


220 


-6 *** < 2 DAYS) 


31 JUL 


199 


-21 *## ( 23 DAYS) 



TOTAL -35 

FOR 33 DAYS 

AVERAGE DAILY RESULT WAS J-l. 06061 



BREAK IN 630 



RUN 

SHALL WE START AT THE BEGINNNING < Y OR N>? 

'? N 

ENTER THE STARTING MONTH.BAY FOR THE REPORT I.E.* JUN»30 

? JUL? 5 



INITIAL WEIGHT WAS 228 ON 5 JUL 
DATE WEIGHT +/- 



6 JUL 
8 JUL 
31 JUL 

TOTAL 



226 
220 
199 



-6 *#* < 2 DAYS) 
-21 *** < 23 DAYS) 



-29 



FOR 26 DAYS 

AVERAGE DAILY RESULT WASJ-1. 11538 



BREAK IN 630 
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MAJOR SYMBOL TABLE 



WEIGHT CONTROL 













I 


NAME 


• 


DESCRIPTION 


I 












I 


M 


, 


MAXIMUM NUMBER OF DATA READS I 


I 


Ml« 


« 


START MONTH 


I 


I 


Dl 


, 


START DAY 


I 


I 


M$ 


♦ 


MONTH IN 


I 


I 


D 


* 


DAY IN 


I 


I 


S 


♦ 


START WEIGHT IN 


I 


I 


W 


♦ 


WEIGHT IN 


I 


I 


TO 


. 


WEIGHT CHANGE 


I 


I 


N 


♦ 


NUMBER OF DAYS MISSED 


I 


I 


T4 


, 


TOTAL WEIGHT CHANGE 


I 


I 


Nl 


, 


TOTAL NUMBER OF DAYS 


I 


I 


T2 


e 


WEIGHT PREVIOUS DAY 


I 














FUNCTIONS USED 














I 


NAME 


► « 


DESCRIPTION 


I 












I 


TAB 


t » 


FORMATS PRINT LINES 


I 


I- 








1 
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HOUSEHOLD INVENTORY 

Description 

For a wide variety of uses, including insurance requirements, it is ad- 
vantageous to have a detailed record of all household property that 
includes purchase dates and costs. This program provides this informa- 
tion in a convenient form that can offer many supplemental benefits to 
the home. 

Functions of the Program 

The program accepts data from DATA statements and prints them in 
the order requested. The code for each printing option is kept separate 
to allow clarity and ease of extension. 

Instructions for Use 

Record information concerning your household items, and enter them 
as data prior to running the program. 

Data Entry 

All data is entered using DATA statements. 

Data Format 

The format of the entries is: 

Item name, Location, Purchase date, Cost, Mfr, Serial Number 

Output Description 

See example provided. Output is presented in two forms as illustrated 
by the examples. All items can be printed in their original order or 
sorted by location. 



20 REM HOUSEHOLD INVENTORY PROGRAM 

30 REM **** DATA INITIALIZATION xxkx 

tO M=10 00 

50 M0='*0 

60 PRINT "SHALL I PRINT THE ENTRIES IN ORDER BY LOCATION?" 

70 INPUT A* 

B0 PRINT 

90 PRINT 

.1.00 PRINT 

110 IP A*="Y" THEN 290 

120 PRINT" ITEM" J TAB < 17) i "LOCATION" PTABC27) t "PURCHASED" f TABC38) ? 

130 PRINT " COST "» TAB ^6) 5 "MFR" »TAB<53) 5 "SER. NBR" 

.1.-90 PRINT" " JTAEK17) ? " " JTAB(27) f " " ? 

150 PRINTTABC3B) i " " JTABMS) t " " ?TAB(53) } " " 

160 REM KXOKJKXOKSOKaOKflOKSOfCSOKSOK 

170 REM **>k PRINTING IN THEIR PRESENT ORDER x*** 
.1.80 FOR 1=1 TO M 
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190 READ I* 

200 IF I*="E.M>" THEN 250 

2.1.0 READ L$,D$,C,Mtf,S* 

220 PRINTI$ ? TAB ( 1 7 ) f L 1> i TAB < 27 > 5 D* f TAB ( 37 ) ? C ; TAB ( 15 > ? M* ; TAB < 51 > i S$ 

230 NEXT I 

210 REM »:)KXJKXOK)fc*»OK)K*»:«*:)K:KXX)Kxw»:X!XJKX)K»c 

250 REM a:** PROGRAM TERMINATION POINT **** 

260 PRINT 

270 PRINT 

280 STOP 

290 REM SOKaOtOlOKSQKJtOKJfOKaOKJtOIClOKXOKJfOKX 

300 REM **** PROCESSING ORDERING AND PRINT BY LOCATION hchokxcx 

310 PRINT "LOCATION" ?TAB<11) 5 "ITEM ?T ABC 26) f "PURCHASED ?TAB(37) ? 

320 PRINT " COST " ? TAB < 16 > i " MFR • » TAB < 55 > ? " SER . NBR " 

330 PRINT " » i TAB < 1 1 ) ? " " » TAB < 26 ) 5 ' " t 

31 PRINTTAB < 37 ) J " " i TAB < 16 > ? " " S TAB < 55 ) 5 " - — ■ 

350 1=1 

360 FOR J= 1 TO M 
370 READ I* 
380 IF I*="END" THEN 510 
390 READ L*,D*»C»M*,S>li 
100 IF J>I THEN 510 
110 IF J<I THEN 530 
120 X$=L$ 
130 IF 1=1 THEN 510 
110 RES TORE- 
IS FOR K- 1 70 J 
160 READ I*»L*»D*,C,M*»S* 
170 IF X*OL* THEN 190 
180 Il=Il-<-l 
190 NEXT K 
500 IF I1>1 THEN 510 
510 IF L*OX$ THEN 530 

520 PRINTL*5TAB<ll>;i*:;TAB(26)fD$JTAB<36)»r5TAB<15);M*?TAB<;55)JS$ 

530 NEXT J 

510 RESTORE 

550 11=0 

560 IF lOl THEN 580 

570 M=J~1 

580 PRINT 

590 1=1+1 

600 IF K=M THEN 360 

610 GOTO 250 

620 REM SOK«*XC)i(X<*aOK)KWi(OK>K)KXX»OK«)(!»OI,'SC*XC 

630 REM >fOK« DATA ENTRIES FOLLOW ***** 

610 DATA TELEVISION* LIVING RM,DEC 1979, 333. 15, BRAND X,M123156 

650 DATA RADIO >■ BEDROOM IrJUN 1978, 11 .23, BRAND Y, 315-123 

660 DATA DISHWASHER, KITCHEN, JAN 1978, 189. 15, BRAND Z, 12--12--M12 

670 DATA WATER SOFTENER , HOUSE 2, JUL 1915, 132. 56, BRAND 0,129876 

680 DATA RANGE, KITCHEN, DEC 1915, 231. 20, BRAND X, 26513 

690 DATA END 



RUN 

SHALL I PRINT THE ENTRIES IN ORDER BY LOCATION 

? Y 
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LOCATION 

LIVING RM 

BEDROOM 1 

KITCHEN 
KITCHEN 

HOUSE 2 



ITEM 

TELEVISION 

RADIO 

DISHWASHER 
RANGE 

WATER SOFTENER 



PURCHASED COST MFR 

DEC 1979 333.45 BRAND X 

JUN 1978 11.23 BRAND Y 

JAN 1978 189.45 BRAND Z 

DEC 1945 234.2 BRAND X 

JUL 1945 432.56 BRAND CI 



SER. NBR 

M123456 

345-1213 

12-12-M12 
26543 

129876 



BREAK IN 280 



RUN 



SHALL I PRINT THE ENTRIES IN ORDER BY LOCATION ? 
? N 



ITEM 



TELEVISION 
RADIO 

DISHWASHER 
WATER SOFTENER 
RANGE 



LOCATION 


PURCHASED 


COST 


MFR 




SER. NBR 


LIVING RM 


DEC 1979 


333.45 


BRAND 


X 


M123456 


BEDROOM 1 


JUN 1978 


1 1 . 23 


BRAND 


Y 


345-1213 


KITCHEN 


JAN 1978 


189.45 


BRAND 


Z 


12-12-M12 


HOUSE 2 


JUL 1945 


432.56 


BRAND 


a 


129876 


KITCHEN 


DEC 1945 


234.2 


BRAND 


X 


26543 



BREAK IN 280 
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I NAME 



M 

1$ 

L$ 

D* 

C 

M$ 

S$ 

I 

X* 



DESCRIPTION 

MAXIMUM NUMBER OF DATA READS 
ITEM 

ROOM/LOCATION 
PURCHASE DATE 
COST 

MANUFACTURER- 
SERIAL NUMBER 
COUNTER 
ITEM BEING PRINTED 



FUNCTIONS USED 
I NAME . . DESCRIPTION 
I TAB .. FORMATS PRINT LINES 



— I 
I 

— I 
I 

— I 
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Mai irw lor Mi! Use 



Math Practice— Addition 244 

Math Practice— Subtraction 248 

Math Practice— Multiplication 252 

Math Practice— Division 256 

Temperature Conversion Tutor 260 



243 



MATH PRACTICE -ADDITION 

Description 

This program provides the ideal device for introducing your children to 
the computer and building up their arithmetic abilities in addition. The 
level of difficulty of the problems is redefined during each run to meet 
changing skill levels. 

Functions of the Program 

This program produces a series of addition problems with randomly 
generated values. The complexity of the problems is determined by 
your choice of the number of digits in them. The individual running the 
program is given the problems and computes answers independently of 
the machine. The answers are then asked for by the computer and are 
compared to the correct answers. The results of the comparisons are 
printed immediately. At the end of the exercise, the number correct, 
the number wrong, and the percent score are printed. The program 
prints five problems per line. The results are printed after each group of 
five problems, and a summarj' is produced at the end. 

Instructions for Use 

Run the program and respond to the questions. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See example provided. 



20 REM MATH PRACTICE AUDITION 
30 REM **»<*: DATA INITIALISATION »:»!!«i( 
40 Y==0 
50 S=l 
60 M=50 
70 C0=0 
B0' N0=0 
90 DIM R<4><5) 
100 DIM A<5) 
110 DIM N1C5> 
120 DIM N2C5) 
130 DIM C<5) 

140 PRINT 'ENTER THE NUMBER' OF DIGITS FOR THE PRACTICE NUMBERS- 
ISO INPUT S 

160 PRINT "HOW MANY ITEMS SHALL I PRINT <5j 1 Or 15»20 r ETC. ) " 
170 INPUT M 
ISO PRINT 
190 PRINT 
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200 REM **** PROCESSING AREA **** 

2:1.0 FOR 1= 1 TO M/5 

220 FOR J=l TO 5 

230 Nl(J)=INT<RND<Y)JKiO-l^>) 

24 N2 < J ) ---INT ( RND ( Y > *1 0^S ) 

250 NEXT J 

260 FOR J- 1. TO 5 

270 PRINT" "i 

280 FOR K=l TO S 

290 IF N1(J)>=10^(S-K) THEN 330 

300 IF (S-K)+N1(J)=0 THEN 330 

3:1.0 PRINT" "i 

320 NEXT K 

330 PRINTN1 ( J > ? TAB < J*l > 5 

340 NEXT ,J 

350 PRINT 

360 FOR J=l TO 5 

370 PRINT "<"> 

380 FOR K=0. TO S 

390 IF N2(J>>=10-MS-IO THEN 430 

400 IF <S-IO+N2<J)=0 THEN 430 

410 PRINT" "5 

420 NEXT K 

43 PRINTN2 < J > i TAB < J*l > 

440 NEXT J 

450 PRINT 

460 FOR J=l TO 5 

470 FOR K= 1 TO S+3 

480 PRINT"-"? 

490 NEXT K 

500 PRINTTAB<J*10) 

S10 NEXT J 

520 FOR J=l TO 5 

530 PRINT 

540 NEXT J 

550 PRINT "ENTER THE ANSWERS* WITH A COMMA BETWEEN" 

560 INPUT A<l)rAC2>yA<3)!.A<4>yA<5) 

570 REM *** PRINTS GROUP RESULTS **** 

580 PRINT 

590 PRINT "RESULTS OF THIS GROUPS " 

600 PRINT 

610 PRINT' " ITEM " ; TAB < 7 > f " MINE ° % TAB < 1 4 ) i " YOURS " ; TAB ( 22 > i " RESULT " 

620 PRINT " » 

630 FOR J=l TO 5 

640 C(J)=NKJ)+N2<J) 

650 IF C(J)<> A<J) THEN 690 

660 R$ < J) = "CORRECT" 

670 C0=C0+1 

680 GOTO 7:1.0 

690 Rtf<j:> = "*WRONG*" 

700 wo=wo+i 

710 PRINT J f " y " ?TAB(5)C( J> ;TAB<14)A( J) JTAB<22)R*< J) 

720 NEXT J 

730 PRINT 

740 PRINT 

750 NEXT I 

760 REM **** PROGRAM TERMINATION POINT ***** 

770 PRINT 

780 PRINT " ***************************** " 

790 PRINT" SCORE BOARD " 

800 PRINT " ***************************** " 

810 PRINT "QUESTIONS "TAB( 15>C0+W0 

820 PRINT 

830 PRINT "NUMBER CORRECT"TAB(20)C0 
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8-^0 PRINT "NUMBER *WRONG*"TAB<20)W0 

850 PRINT 

860 PRINT "YOUR SCORE IS ' J (C0/CC0+WO) )*100* "/." 

870 PRINT " xjkjkxxokxokxhcxjkkxwjkkkjkjkjokjkjkikxjioiuk " 

B80 PRINT 

890 STOP 



RUN 

ENTER THE NUMBER OF DIGITS FOR THE PRACTICE NUMBERS 

? 2 

HOW MANY ITEMS SHALL I PRINT <5t lOr 15» 20 ETC.) 

'? 5 



5 49 98 72 96 

+78 +36 +90 +0 +0 



ENTER THE ANSWERS? (WITH A COMMA BETWEEN 
'? 83j85f 187,72p96 

RESULTS OF THIS GROUP! 

ITEM MINE YOURS RESULT 



i 


» 


83 


83 


CORRECT 


? 


♦ 


85 


85 


CORRECT 


3 


* 


188 


187 


*WRONG* 


A 


, 


72 


72 


CORRECT 


5 


♦ 


96 


96 


CORRECT 



*********************** 

SCORE BOARD 
*********************** 
QUESTIONS 5 

NUMBER CORRECT A 
NUMBER *WRONG* 1 

YOUR SCORE IS 80 7. 
*********************** 

BREAK IN 890 
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MAJOR SYMBOL TABLE 



MATH PRACTICE 



I NAME 



DESCRIPTION 



ADDITION 

1 

I 



Y 
S 
M 

CO 
WO 

R*< ) 
A< ) 
Nl( ) 
N2( ) 
C( ) 
J 



SEED FOR RANDOM NUMBER I 
NUMBER OF DIGITS IN PROBLEMS I 
NUMBER OF PROBLEMS I 
NUMBER CORRECT I 
NUMBER WRONG I 
RESULTS CORRECT/WRONG I 
ANSWERS INPUT I 
PROBLEM PART 1 I 
PROBLEM PART 2 I 
CORRECT ANSWERS I 
QUESTION NUMBER I 
j 



FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



I RND . . GENERATES RANDOM NUMBERS 
I TAB .. FORMATS PRINT LINES 
I INT . . CONVERTS NUMBER TO INTEGER 
I DIM .. SINGLE DIMENSION ARRAY 

I 
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MATH PRACTICE - SUBTRACTION 

Description 

This program provides an ideal device for introducing your children to 
the computer and building up their arithmetic abilities in subtraction. 
The level of difficulty of the problems is redefined during each run to 
meet changing skill levels. 

Functions of the Program 

This program produces a series of subtraction problems with randomly 
generated values. The complexity of the problems is determined by 
your choice of the number of digits in them. The individual running the 
program is given the problems and computes answers independently of 
the machine. The answers are then asked for by the computer and are 
compared to the correct answers. The results of the comparisons are 
printed immediately. At the end of the exercise, the number correct, 
the number wrong, and the percent score are printed. The program 
prints five problems per line. The results are printed after each group of 
five problems, and a summary is produced at the end. 

Instructions for Use 

Run the program and respond to the questions. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See examples provided. 



20 REM MATH PRACTICE - 


SUBTRACTION 












30 REM **s«>k DATA 


INITIALIZATION 


JKXXOK 












40 Y=0 


















50 S=l 


















60 M=50 


















70 C0=0 


















80 W0 = 


















90 DIM R*<5) 


















100 DIM ACS) 


















110 DIM N1C5) 


















120 DIM N2<5> 


















130 DIM C<5) 


















140 PRINT "ENTER " 


!"HE NUMEE 


R OF DIGITS FDR 


THE 


PRACTICE 


NUMI. : 


5ERS 


150 INPUT S 


















160 PRINT "HOW MANY ITEMS 


SHALL I 


PRINT <5>10i 


,VS*Z0t 


ETC 


:.)" 




170 INPUT M 


















180 PRINT 


















190 PRINT 
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200 REM a:*** PROCESSING AREA xmx 

210 FOR I- 1 TO M/5 

220 FOR J=l TO 5 

230 Nl < J > =INT < RND < Y ) XI 0*S ) 

24 N2 < J ) =INT < R'ND < Y ) * 1 tS ) 

250 NEXT J 

260 FOR J= 1 TO 5 

270 PRINT" "? 

280 FOR K=l TO S 

290 IF N.UJ)>=10^(S-K) THEN 330 

300 IF (S-K)+N1(J)=0 THEN 330 

3:1.0 PRINT" "? 

320 NEXT K 

330 PRINTN1 ( J > J TAB < J*l > i 

340 NEXT J 

350 PRINT 

360 FOR J=i TO 5 

370 PRINT"-"? 

380 FOR K=i TO S 

390 IF N2<J)>==10'MS-I<) THEN 430 

^0 IF <S~K)+N2<J)=0 THEN 430 

410 PRINT" "? 

420 NEXT K 

430 PRINTN2 ( J ) i TAB < Jx.l ) 

440 NEXT J 

450 PRINT 

460 FOR J=l TO 5 

470 FOR K= .1 TO S+3 

480 PRINT"-"? 

490 NEXT K 

500 PRINT TAB C J*l ) 

510 NEXT J 

520 FOR J=l TO 5 

530 PRINT 

540 NEXT J 

550 PRINT "ENTER THE ANSWERS , WITH A COMMA BETWEEN" 

560 INPUT A<1) rAC2)>A<3)>'A<4) ! .A<5) 

570 REM *x* PRINTS GROUP RESULTS xxx* 

580 PRINT 

590 PRINT "RESULTS OF THIS GROUP J " 

600 PRINT 

610 PRINT' « ITEM " J TAB < 7 ) i " MINE ■ ? TAB (14)?" YOURS ■ ? TAB < 22 ) ? " RESULT' " 

620 PRINT" « 

630 FOR J=l TO 5 

640 C « J ) =N 1 < J ) -N2 < J ) 

650 IF CCJ)<> A<J) THEN 690 

66 R$ ( J ) = » CORRECT " 

670 C0=C0+1 

680 GOTO 710 

690 R$<J)="*WRGNGx" 

700 W0=W0+1 

7 1 PRINT J f," S TAB ( 5 ) C ( J ) ? TAB < 1 4 > A ( J > ? TAB < 22 ) R* < J ) 

720 NEXT J 

730 PRINT 

740 PRINT 

750 NEXT I 

760 REM **** PROGRAM TERMINATION POINT *xxx* 

770 PRINT 

78 PRIN T " xxxxHexx^xxxxxwxxxxxxxxxxjoiaoK*: » 

790 PRINT" SCORE BOARD " 

800 PRINT " XXXXXXXXXXXXXXXXXXaOKXXiKXX:**** " 

810 PRINT "QUESTIONS "TAB<15)C0+WQ 

B20 PRINT 

830 PRINT "NUMBER CORRECT "TAB (20) CO 
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8-4 PRINT' " NUMBER *WRDNG* ° TAB ( 2 ) W 

B50 PRINT 

860 PRINT "YOUR SCORE IS " i CC0/<C0+WO> )xi00 ? "X" 

870 PRINT' " HCJKJKJKXOKXJK********************* " 

880 PRINT 
890 STOP 



RUN 

ENTER THE NUMBER OF DIGITS FOR THE PRACTICE NUMBERS 

? 3 

HOW MANY ITEMS SHALL I PRINT <5* 10, 15* 20 ETC.) 

? 5 



956 
40 



896 
660 



554 
816 



907 
- 858 



868 
506 



ENTER THE ANSWERS , (WITH A COMMA BETWEEN 
t 916j236f-264*19»99 



RESULTS OF THIS GROUP! 

ITEM MINE YOURS RESULT 



1 




916 


916 


CORRECT 


2 


* 


236 


236 


CORRECT 


3 


# 


-264 


-264 


CORRECT 


4 


t 


49 


19 


♦WRONG* 


5 


♦ 


362 


99 


*WRONG* 



SCORE BOARD 

QUESTIONS 5 

NUMBER CORRECT 3 
NUMBER #WRONG# 2 

YOUR SCORE IS 60 % 
%%%%%%%%%%%%%%%%%%%%%%% 

BREAK IN 890 
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MAJOR SYMBOL TABLE - MATH PRACTICE - SUBTRACTION 

j ! 

I NAME .. DESCRIPTION I 

j ! 

I Y .. SEED FOR RANDOM NUMBER I 

IS .. NUMBER OF DIGITS IN PROBLEMS I 

I M . . NUMBER OF PROBLEMS I 

I CO .. NUMBER CORRECT I 

I WO .. NUMBER WRONG I 

I R*( ) .. RESULTS CORRECT/WRONG I 

I A< ) .. ANSWERS INPUT I 

I Nl< > .. PROBLEM PART 1 I 

I N2< ) .. PROBLEM PART 2 I 

I fc( ) .. CORRECT ANSWERS I 

I J .. QUESTION NUMBER I 

! j 

FUNCTIONS USED 

X j 

I NAME .. DESCRIPTION I 

! j 

I RND .. GENERATES RANDOM NUMBERS I 
I TAB .. FORMATS PRINT LINES I 

I INT . , CONVERTS NUMBER TO INTEGER I 

I DIM .. SINGLE DIMENSION ARRAY I 

X x 
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MATH PRACTICE - MULTIPLICATION 

Description 

This program provides the ideal device for introducing your children to 
the computer and building up their arithmetic abilities in multiplication. 
The level of difficulty of the problems is redefined during each run to 
meet changing skill levels. 

Functions of the Program 

This program produces a series of multiplication problems with ran- 
domly generated values. The complexity of the problems is determined 
by your choice of the number of digits in them. The individual running 
the program is given the problems and computes answers independently 
of the machine. The answer:; are then asked for by the computer and 
are compared to the correct answers. The results of the comparisons are 
printed immediately. At the end of the exercise, the number correct, 
the number wrong, and the percent score are printed. The program 
prints five problems per line. The results are printed after each group of 
five problems, and a summary is produced at the end. 

Instructions for Use 

Run the program and respond to the questions. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See example provided. 



20 


REM MATH 


PRACTICE 


- MULTIPLICATION 


30 


REM **** DATA INITIAL 


IZATITJN 


iKXifOK 


fO 


Y=0 










50 


S=l 










60 


M=50 










70 


CQ=0 










B0 


W0=0 










90 


DIM R*<5) 










100 


DIM A<5) 










HO 


DIM NK5) 










120 


DIM N2(5> 










130 


DIM C<5) 










HO 


PRINT "ENTER 


: THE 


: NUMBER OF DIGITS FOR 


150 


INPUT' S 










160 


PRINT "HOW MANY 


ITEMS 


SHALL I 


PRINT <: 


170 


INPUT M 










180 


PRINT 










190 


PRINT 











-. PRACTICE NUMBER 
5»10f 15»20»ETC. >" 
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200 REM hokxx PROCESSING AREA x*** 

210 FOR 1= 1 TO M/5 

220 FOR J=l TO 5 

230 Nl<J>=INT<RND<Y>)K:l.0tS) 

240 N2<J>=INT<RND<Y>*10^S> 

250 NEXT J 

260 FOR J= 1 TO 5 

270 PRINT" -', 

280 FOR K=l TO 3 

290 IF NKJ)MOt(S-K) THEN 330 

300 IF (S-K)+NI.(J)=I) THEN 330 

310 PRINT" "? 

320 NEXT K 

330 PRINTN1 (J) 5TAB( J*10) 5 

340 NEXT J 

350 PRINT 

360 FOR J==l TO 5 

370 PRINT "X "5 

380 FOR K=i TO S 

390 IF N2<J>>-10-i<<S-K> THEN 430 

^00 IF <S-K)+N2(J)=0 THEN 430 

410 PRINT" "i 

420 NEXT K 

430 PRINTN2 (J > J TAB < J*l ) 

440 NEXT J 

450 PRINT 

460 FOR J-X 70 5 

470 FOR K= 1 TO S+3 

480 PRINT"-"; 

490 NEXT K 

50 PRINTTABt'JxiO) 

510 NEXT J 

520 FOR J=l TO 5 

530 PRINT 

5^0 NEXT J 

550 PRINT" ENTER THE ANSWERS? WITH A COMMA BETWEEN" 

560 INPUT ACL)i.A(2Ji.A<3)vA(4)»A(5) 

570 REM xxx PRINT'S GROUP RESULTS **xx 

580 PRINT 

590 PRINT "RESULTS OF THIS GROUP}" 

600 PRINT 

610 PRINT " ITEM " ? TAB < 7 ) t " MINE " i TAB < 1 4 ) i « YOURS " > TAB < 22 ) i " RESULT' " 

630 FOR J=l TO 5 

640 C < J ) -N .1. < d ) «N2 ( J ) 

650 IF C(J><> A<J) THEN 690 

660 RKi ( J > = » CORRECT " 

670 C0=CQ+1 

680 GOTO 710 

690 R*(J)="*WRONG«" 

700 W0=W0+1 

710 PRINT J f » , " ; TAB ( 5 >C C J > i TAB < 1 4 ) A ( J ) ', TAB < 22 )R* < J ) 

720 NEXT J 

730 PRINT 

740 PRINT 

750 NEXT I 

760 REM *X!kx PROGRAM TERMINATION POINT jkkxxx 

770 PRINT 

78 PRINT " *:*xx*:*»-xx-*s<>kx:k*>kxx*x:k>k*:*x;*>k>s:;k " 

790 PRINT" SCORE BOARD " 

BOO PRINT " XXXXXXXOXXXXOKXXXXXOKXXXOKXXXOKXOKX " 

810 PRINT "QUESTIONS °TAB( 15JC0+W0 

820 PRINT 

83 PRINT " NUMBER CORRECT " TAB ( 2 ) C 

Tutorial Programs for Home Use 253 



8-fO PRINT "NUMBER *WRONG*"TAB(20)W0 

850 PRINT 

860 PRINT "YOUR SCORE IS " 5 (CO/CCO+WO) )*1 00» ' 

870 PRINT " x<»;»:«xoK*»cxoK*x<»of!*w*»:JiOK»M!»OK»<>ssoK)K " 

880 PRINT 

890 STOP 



RUN 

ENTER THE NUMBER OF DIGITS FOR THE PRACTICE NUMBERS 

? 2 

HOW MANY ITEMS SHALL I PRINT (5? 10» 15? 20 ETC.) 

? 5 



58 
X 44 



86 
X 3 



60 
X 77 



28 
X 78 



13 
X 22 



ENTER THE ANSWERS , (WITH A 
? 2552? 258? 4620 f 1111j1S6 



COMMA BETWEEN 



RESULTS OF THIS GROUP! 

ITEM MINE YOURS RESULT 



1 


• 


2552 


2552 


CORRECT 


2 


♦ 


258 


258 


CORRECT 


3 


* 


4620 


4620 


CORRECT 


4 


, 


2184 


1111 


*WRONG* 


5 


♦ 


286 


186 


*WRC)NG* 



SCORE BOARD 

QUESTIONS 5 

NUMBER CORRECT 3 
NUMBER *WRONG# 2 

YOUR SCORE IS 60 % 
BREAK IN 890 
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MAJOR SYMBOL TABLE - MATH PRACTICE 



MULTIPLICATION 



I- 








-I 


I 

T 


NAME 


* 


DESCRIPTION 


I 


I 


Y 


» 


SEED FOR RANDOM NUMBER 


I 


I 


S 


♦ 


NUMBER OF DIGITS IN PROBLEMS 


I 


I 


M 


♦ 


NUMBER OF PROBLEMS 


I 


I 


CO 


♦ 


NUMBER CORRECT 


I 


I 


WO 


4 


NUMBER WRONG 


I 


I 


R$< ) 


♦ 


RESULTS CORRECT/WRONG 


I 


I 


A< ) 


♦ 


ANSWERS INPUT 


I 


I 


Nl< ) 


, 


PROBLEM PART 1 


I 


I 


N2< ) 


, 


PROBLEM PART 2 


I 


I 


C( ) 


♦ 


CORRECT ANSWERS 


I 


I 


J 


♦ 


QUESTION NUMBER 


I 




FUNCTIONS USED 




I 


NAME 


* 


DESCRIPTION 


I 


I 


RND 


. * 


GENERATES RANDOM NUMBERS 


I 


I 


TAB 




FORMATS PRINT LINES 


I 


I 


INT 


♦ 


CONVERTS NUMBER TO INTEGER 


I 


I 


DIM 


• 


SINGLE DIMENSION ARRAY 


I 










-I 
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MATH PRACTICE - DIVISION 

Description 

This program provides the ideal device for building a child's arithmetic 
capability in division. The level of problem difficulty is easily modified 
to meet changing skill levels (without program modification). 

Functions of the Program 

This program produces a series of division problems with randomly 
selected values. The complexity of the problems is determined by the 
choice of the number of digits in the problems and the number of 
decimal digits for rounding accuracy in the answer. The individual 
running the program computes answers independently of the machine 
and enters the answers when they are requested. These answers are 
compared to the correct answers, and the results of the comparison are 
printed immediately. At the end of the exercise, the number correct, 
the number wrong, and the percent correct are printed. The randomly 
selected problems are printed five per line. The answers are requested, 
compared, and the results printed after each line of five problems is 
complete. 

Instructions for Use 

Run the program and respond to the questions asked by the program. 

Output Description 

See example provided. 

Comments 

Because of number storage differences between machines, the answer 
analysis routine (lines 570-740) should be verified. 



20 REM MATH PRACTICE DIVISION 

30 REM 

40 REM ** NOTE ** INDIVIDUAL. MACHINE DIFFERENCES IN HANDLING 

50 REM NUMERIC ITEMS MAY CAUSE INCORRECT ANSWER ANALYSIS 

60 REM WHEN DEALING WITH LARGE ANSWERS WITH EXTENDED DECIMAL 

70 REM POSITIONS. 

80 REM 

90 REM «JK»x< DATA INITIALIZATION **xx 

100 Y=0 

HO S=l 

120 M=50 

130 CQ=0 

l'H) W0=0 

150 DIM R*<5) 

160 DIM A<5) 
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170 
180 
190 
20 
210 
220 
230 
2-90 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
380 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 



DIM Nl<5> 
DIM N2C5) 
DIM CCS) 
PRINT "ENTER 



THE NUMBER OF DIGITS FOR THE PRACTICE DIVISOR" 



ENTER THE NUMBER OF DIGIT'S FOR THE PRACTICE DIVIDEND" 

S2 

ENTER THE NUMBER OF DECIMAL POSITIONS FOR THE RESULT" 

S3 

HOW MANY ITEMS SHALL I PRINT <5» 10i-15»20f ETC.)" 

M 



INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

INPUT 

PRINT 

PRINT' 

REM xxcxx PROCESSING AREA **>k>k 

FOR 1=1 TO M/5 
FOR J=l TO 5 

NKJ)=INT<RND(Y)xlO^S) 

IF NKJ)=0 THEN 330 

N2 ( J ) =INT ( RND < Y ) * 1 *S2 ) 



°TAB<54}°- 



-<S+:t0))Nl(J) ?"/ n N2CJ>5 



•ENTER THE ANSWERS WITH A COMMA BETWEEN" 
A<l)rA(2)i-A<3)yA(4>»A(5) 
PRINTS GROUP RESULTS **** 



OF THIS GROUPS ' 



NEXT v 
B<41>"-~ 
PRINT 
FOR J=l TO 5 

PRINTTAB<J*13- 
NEXT J 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
INPUT 
REM xxx 
PRINT 
PRINT" RESULT? 

PRINT 
PRINT' " ITEM " J TAB < 7 ) » " MINE " TAB < 1 4 ) " YOURS " TAB ( 22 ) " RESULT " 

PRINT " » 

FOR J=l TO 5 

IF N1(J)=0 THEN 650 
C(J)=N2(J)/Ni(J) 
C1=INT<C( J)*10^ <S3+1 > ) 
C2=INT ( C < J ) *1 tS3 ) 
IF (C1-(C2JK10>><5 THEN 640 
C2=C2+1 

C2=<C27<10CS3>) 

IF C2-A<J)X1/10^<S3+1)) THEN 70 
IF C2-A<J)<<-l/10t<S3+D) THEN 70 
R* ( J) =" CORRECT" 
C0=C0+1 
GOTO 720 
R*CJ)="xWRONG*" 
W0=W0+1 

PRINT J i " . " TAB < 5 ) C2TAB < 1 4 > A ( J > TAB < 22 ) R* ( J ) 
C2=0 
NEXT J 
PRINT 
PRINT' 
NEXT I 

REM **** PROGRAM TERMINATION POINT xxxxx 
PRINT- 
PRINT " XXXOKXXXXXXXXXXXXXXXXXXMX ' 
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810 PRINT" SCORE BOARD" 

620 PRINT " JKXJKXKWJKJKJiexiioKitoKitoicsiOKiicxxxaex " 

830 PRINT "QUESTIONS "TAB(.15)C0+W0 

B40 PRINT 

B50 PRINT "NUMBER CORRECT '7A6'<20 >C0 

860 PRINT "NUMBER *WRONG*"TAB<20)W0 

870 PRINT 

880 PRINT "YOUR SCORE IS " > (C0/(C()+W0) )*100 t "%" 

890 PRINT " SIOKJIOKXOKXOIOSOIOIOKHOKXClCaOtOlOKXOKJiOSC " 

900 PRINT 

910 STOP 



RUN 

ENTER THE NUMBER OF DIGITS FOR THE PRACTICE DIVISOR 

f 2 

ENTER THE NUMBER OF DIGITS FOR THE PRACTICE DIVIDEND 

? 3 

ENTER THE NUMBER OF DECIMAL POSITIONS FOR THE RESULT 

? 1 

HOW MANY ITEMS SHALL I PRINT (5, 10» 15, 20 ETC.) 

? 5 



21 / 876 85 / 567 36 / 33 87 / 763 20 / 608 



ENTER THE ANSWERS* (WITH A COMMA BETWEEN 
? 41,7*6. 7»1.0>8.9>30. 4 

RESULTS OF THIS GROUPS 

ITEM MINE YOURS RESULT 



1 . 41.7 41.7 CORRECT 

2 . 6.7 6.7 CORRECT 

3 . .9 1 KWR0NG* 

4 . 8.8 8.9 #WR0NG# 

5 . 30.4 30.4 CORRECT 



SCORE BOARD 

QUESTIONS 5 

NUMBER CORRECT 3 
NUMBER *WRONG# 2 

YOUR SCORE IS 60 % 



BREAK IN 910 
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MAJOR SYMBOL TABLE -- MATH PRACTICE 



I- 

I NAME 



DESCRIPTION 



DIVISION 

1 

I 



Y 

S2 
S3 
M 

CO 
WO 

R*< ) 
A< ) 
Nl< ) 
N2< ) 
C< > 
J 



SEED FOR RANDOM NUMBER 

NUMBER OF DIGITS IN DIVISOR 

NUMBER OF DIGITS IN DIVIDEND 

NUMBER OF PROBLEMS 

NUMBER CORRECT 

NUMBER WRONG 

RESULTS CORRECT/WRONG 

ANSWERS INPUT 

PROBLEM PART 1 

PROBLEM PART 2 

CORRECT ANSWERS 

QUESTION NUMBER 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



I RND . . GENERATES RANDOM NUMBERS 

I TAB .. FORMATS PRINT LINES 

I INT .. CONVERTS NUMBER TO INTEGER 

I DIM .. SINGLE DIMENSION ARRAY 

I 
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TEMPERATURE CONVERSION TUTOR 

Description 

This program produces a series of temperature conversion problems 
with randomly selected values. The type of conversion (Fahrenheit to 
Celsius, or the reverse) is determined by your response to the program 
question. 

Functions of the Program 

The individual running the program computes answers independently 
of the computer and provides the answers to the machine when re- 
quested. These answers are compared to the correct answers, and the 
results of the comparisons are printed immediately. The program ran- 
domly selects the values of the items and prints them five per line. At 
the end of the exercise, the number correct, the number wrong, and the 
percent correct are printed. After the completion of all problems, a 
summary of the results is printed. 

Instructions for Use 

Run the program and answer the questions asked. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See example provided. 



20 REM **<*:* TEMPERATURE CONVERSION TUTORIAL PROGRAM 

30 REM **** DATA INITIALIZATION **** 

40 DIM Z(5) 

50 DIM A (5) 

60 DIM R*(5) 

70 DIM CCS) 

80 T*=°F" 

90 C0=0 

10(1 W0==0 

110 N=l 

120 Y=0 

130 F2=— 50 

140 F.1-30 

150 C2=-25 

160 CI ==150 

170 PRINT "WHICH EXERCISE WOULD YOU LIKE TO TRY?" 

180 PRINT" CELSIUS TO FAHRENHEIT <C) OR FAHRENHEIT TO CELSIUS <(->■ 

190 INPUT A* „„ lc , ,-••,.„« 

200 PRINT "HOW MANY PRACTICE EXERCISES SHALL WE TRY b, 10, 15 » ETC 

210 INPUT N 

220 REM **** PROCESSING AREA **** 
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230 FOR 1= :l. TO N/5 

240 IF A*="C" THEN 290 

250 Ti*= " FAHRENHEIT " 

260 N1=F1 

270 N2-F2 

280 GOTO 320 

290 T:l*= "CELSIUS" 

300 N.1.=C1 

310 N2=C2 

320 PRINT "CONVERT THESE "ST1*J" TEMPERATURES 

330 FOR J= 1 TO 5 

340 Z(J>=XNT<RND<Y>*<N1-N2+1) + N2) 

.350 PRINT" "JZ(J)5 

360 NEXT J 

370 PRINT 

380 PRINT 

390 PRINT' "ENTER THE EQUIVALENT TEMPERATURE <W1TH COMMAS BETWEEN) 

400 INPUT A<l)*A<2>!.A<3)rA<4>»A<5> 

410 REM «***: PRINTS RESULTS OF GROUP k*** 

420 PRINT 

430 PRINT "RESULTS OF THIS GROUP?" 

440 PRINT 

450 PRINT "ITEM MINE YOURS RESULT" 

460 PRINT " " 

470 FOR J=l TO 5 

480 IF A$--="C" THEN 510 

490 CCJ)=INT<(ZGJ)--32>*5/9+.5) 

500 GOTO 520 

510 C(J>=INT< <ZCJ)*9/5)+32«5) 

520 IF C<J)OA<J) THEN 560 

53 R!|> < J ) == " CORREC T " 

540 CO=C0+l 

550 GOTO 580 

56 R* < J ) == " *WRONG* " 

570 W0-W0+1 

58 PRINT J J " ♦ " TAB ( 5 > C C J > TAB ( 1 4 ) A < J ) TAB < 22 ) R* < J ) 

590 NEXT d 

60 PRINT 

610 PRINT' 

620 NEXT I 

630 REM xxxxxx PROGRAM TERMINATION POINT *xxxok 

640 PRINT 

650 PRINT " SOfOfOKJfOKJfOKXacaOKHOKJIOKJtOKifOKJfOKiK " 

660 PRINT" SCORE BOARD " 

670 PRINT " JKttJKXaOKJKXHOKXOKaOKSOiCtOKXOKSOtOK " 

680 PRINT "QUESTIONS "TAB (15) C0+W0 

690 PRINT 

700 PRINT "NUMBER CORRECT"TAB(20) CO 

710 PRINT "NUMBER *WRONG"TAB<20 > W0 

720 PRINT 

730 PRINT "YOUR SCORE IS " 5 <C0/(C0+W0> )*100? "%» 

74 PRINT " KXiKXUKXMOKXOKilOKXOKXOKXXJIOKXOKK " 

750 PRINT 
760 STOP 



RUN 

WHICH EXERCISE WOULD YOU LIKE TO TRY! 

CELSIUS TO FAHRENHEIT (C) OR FAHRENHEIT TO CELSIUS (F) 
? F 

HOW MANY PRACTICE EXERCISES SHALL WE TRY 5, 10, 15, ETC) 
? 10 
CONVERT THESE FAHRENHEIT TEMPERATURES 

47 123 212 82 207 
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ENTER THE EQUIVALENT TEMPERATURE (WITH COMMAS BETWEEN) 
f 8?51i.l00f28»95 



RESUL 


TS OF 


THIS GROUP 


* 


ITEM 


MINE 


YOURS 


RESULT 


1 . 


8 


8 


CORRECT 


1 ♦ 


51 


51 


CORRECT 


3 . 


100 


100 


CORRECT 


4 . 


28 


28 


CORRECT 


5 . 


97 


95 


*WRONG* 



CONVERT THESE FAHRENHEIT TEMPERATURES 

-6 83 2E8 ~43 20 

ENTER THE EQUIVALENT TEMPERATURE (WITH COMMAS BETWEEN) 
? -21»28»126f-42.-7 

RESULTS OF THIS GROUP! 

ITEM MINE YOURS RESULT 



1 . 


-21 


-21 


CORRECT 


2 . 


28 


28 


CORRECT 


3 . 


126 


126 


CORRECT 


4 . 


-42 


-42 


CORRECT 


5 . 


-7 


-7 


CORRECT 



SCORE BOARD 

QUESTIONS 10 

NUMBER CORRECT 9 
NUMBER *WRONG* 1 

YOUR SCORE IS 90 % 
BREAK IN 760 
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MAJOR SYMBOL TABLE - TEMPERATURE CONVERSIONS 

j 

.. DESCRIPTION I 



I NAME 

I 

I Z< ) 

A( ) 

R$ 

C( ) 

CO 

WO 

N 

Y 

F2 

Fl 

C2 

CI 

A* 

Nl 

N2 



TEMPERATURES TO CONVERT 
ANSWERS INPUT 
RESULTS CORRECT/WRONG 
CORRECT ANSWERS 
NUMBER CORRECT 
NUMBER WRONG 
NUMBER OF PROBLEMS 
RANDOM NUMBER SEED 
MINIMUM F TEMP 
MAXIMUM F TEMP 
MINIMUM C TEMP 
MAXIMUM C TEMP 
CONVERSION DIRECTION 
MAXIMUM RANDOM TEMPERATURE 
MINIMUM RANDOM NUMBER 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



I INT ., CONVERTS NUMBERS TO INTEGERS I 
I RND . . GENERATES A RANDOM NUMBER I 
I TAB .. FORMATS PRINT LINES I 

I DIM .. SINGLE DIMENSION ARRAYS I 

I j 
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Conversion Programs 



Metric Conversions 266 

Temperature Conversions 270 
Currency Conversions 272 
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METRIC CONVERSIONS 

Description 

This program produces conversions between standard measurements 
and metric units. 

Functions of the Program 

The program allows conversions of length, area, mass (weight), or liquid 

volume. The conversion can be either to or from the metric units. 

Instructions for Use 

Run the program and answer the questions asked. 

Output Description 

See example provided. 

Comments 

If additional conversion accuracy is required, modify the DATA state- 
ments in lines 1 110-1320 to include the more accurate multiplier. 



20 REM METRIC CONVERSION PROGRAM 

30 RFM COMPUTATIONS ARE APPROXIMATE CONVERSIONS BASED UPON 

to REM TABLES PROVIDED IN THE SMALL BUSINESS ADMINISTRATION'S 

130 REM MANAGEMENT AID NO 21* AND NBS PUBLICATION 3(HA 

60 REM He******* 

70 REmxxxxx* DATA INITIALIZATION xksiokx** 

80 M==8 

90 Ml =9 

100 M2=6 

110 M3=8 

120 DIM Ll$<8> 

130 DIM L2*<8) 

1-40 DIM L3<8> 

150 DIM A1*<9J 

160 DIM A2*<9) 

170 DIM A3 (9) 

180 DIM Wl*<£) 

190 DIM W2*<6) 

200 DIM W3<6> 

210 DIM Vl*<8> 

220 DIM V2*<8> 

230 DIM V3<8> 

2-40 FOR I = 1 TOM 

250 READ Ll*(I>»L2*<I)i'L3<I) 

260 NEXT I 

270 FOR 1=1 TO Ml 

280 READ Al* < I > > A2* < I ) >< A3 < I ) 

290 NEXT I 

300 FOR 1=1 TO M2 

310 READ Wl*<I)»W2*<I)vW3<I) 

320 NEXT I 
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330 FOR I = 1 TO M3 

340 READ V«KI)).V2*<I) ? V8<T) 

350 NEXT I 

360 REM xokxcxxokkxck 

370 REM xokhok PROCESSING AREA xxoksok 

380 PRINT "DO YOU WISH TO CONVERT LENGTH (L)» AR'EA (A)*" 

itl ^H^J" mss (M> > aR LIQUID VOLUME <V)?» 

400 xNFUr Al* 

410 PRINT 

420 PRINT" CONVERSIONS AVAILABLE" 

430 PRINT 

440 PRINTTAB ( 9 ) » " NBR " J TAB < 1 4 ) J " FROM " ? TAB < 39 > J " TO " 

45 PRINTTAB ( 9 J 5 " » J TAB < 1 4 > 5 " « $ TAB ( 39 ) 1 " » 

460 IF A1*="L" THEN 520 

470 IF A.'L4i="A" THEN 650 

480 IF Ai*-"M" THEN 780 

490 IF A1*=="V" THEN 910 

500 PRINT "ENTRY MUST BE L, Ar M, OR V" 

510 GOTO 380 

520 REM «*** PRINT FOR LENGTH hokxx 

530 FOR 1= 1 TO M 

54 PRINTTAB (10)? I ? TAB C 1 5 ) J L 1 $ (. I ) % TAB < 4 J 5 L2* < I J 

550 NEXT I 

560 PRINT 

570 PRINT "ENTER THE NUMBER OF THE CONVERSION TO BE USED <0 WHEN DONE) "J 

590 IF N=0 THEN .1.040 

60 PRINT "ENTER THE NUMBER OF "JL1*<N) 

610 INPUT L0 

620 L=L0*L3<N) 

63 PRINTL ? L 1 * < N ) i " = " i L t L2* ( N > 

640 GOTO 560 

650 REM soksok PRINT OF AREA **** 

660 FOR I = .1. TO Ml 

670 PRINTTAB(9) ;.OTAB<14> >A1*<I) f TAB (39) ,'A2*(I> 

680 NEXT I 

690 PRINT 

700 PRINT "ENTER THE NUMBER OF THE CONVERSION TO BE USED (0 WHEN DONE)" 

710 INPUT N 

720 IF N=0 THEN 1050 

730 PRINT "ENTER THE NUMBER OF "JA1*<N)J 

740 INPUT A0 

750 A=A0*A3(N) 

760 PRINTA0 SA1*<N) f "=--" ,'Af A2*(N) 

770 GOTO 690 

780 REM aofcaoKXOKK* PRINT OF MASS at******** 

790 FOR I = 1 TO M2 

80 PRINTTAB ( 1 ) i I ? TAB ( 15 ) f Wl $ (. I ) i TAB < 4 ) ? W2* ( I ) 

810 NEXT I 

820 PRINT 

830 PRINT "ENTER THE NUMBER OF THE CONVERSION TO BE USED <0 WHEN DONE)"; 

840 INPUT' N 

850 IF N--=0 THEN 1050 

860 PRINT "ENTER THE NUMBER OF "JWUMNU' 

870 INPUT W0 

880 W=W0*W3<N) 

890 PRINTWQ?W1*<N) ? " = " ;.W?W2$CN) 

900 GOTO 820 

910 REM hx* PRINT OF LIQUID VOLUME **** 

920 FOR I = .1. TO M3 

930 PRINTTAB (10) ?I?TAB(15) ?V1*(I) n"AB<40> i V2*<T) 

940 NEXT I 

950 PRINT 

960 PRINT "ENTER THE NUMBER OF THE CONVERSION TO BE USED (0 WHEN DONE)"? 
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970 INPUT N 

980 IF N=0 THEN 1050 

990 PRINT "ENTER THE NUMBER OF "?yi*<N)J 

.1.00 INPUT VO 

V=V0>kV3(N> 

PRINTVOJVISCN)? "=" JVJV2JKN) 

GOTO 950 

REM XHKXXOKJKXJIOK 

REM jkxokx** PROGRAM TERMINATION POINT xokhokhok 

PRINT 

PRINT 

STOP' 

REM *»c)KXOt!*:)K)KX)tc 

REM ***** DATA FOR INITIALIZATION xokxok*** 

REM *)iot:;o<»: LENGTH tf*:*** 

DATA INCHESi-MII.LIMETERSi.25. 4. FEET . METERS.. ,3048 

YARDS j METERS ( ,S'W> MILES i- KILOMETERS . 1 . 6 93 

MILLIMETERS . INCHES . , 039-1 . METERS . FEET . 3 . 2808 

METERS r YARDS , 1 , 0936. KILOMETERS . MILES . . 6214 
REM mokxoksok AREA 
DATA SQ INCHES. SQ CENTIMETERS. 6, 4516 .SQ FEET.SG METERS. . 0929 

SO YARDS. SQ METERS. , 8361 .SQ MILES. SQ KILOMETERS. 2. 59 

ACRES. SQ HECTOMETERS (HECTARES) . . 4047 

SO CENTIMETERS > SO INCHES . ♦ 1 55 . SCJ METERS . SO YARDS .1.1 96 

SQ KILOMETERS. SQ MILES. .3861 

SQ HECTOMETERS ( HECTARES ) . ACRES .2.471 



1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 
1100 
1110 
.1.120 
1130 
1140 
1150 
1.160 
1170 
1180 
1190 
1200 
121 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1290 
130 
1310 
1320 



DATA 
DATA 
DATA 



DATA 

DATA 

DATA 

DATA 

DATA 

REM **x* MASS 

DATA OUNCES . GRAMS . 28 . 3495 . POUNDS . KILOGRAMS . . 4536 

DATA SHORT TONS . MEGAGRAMS . ♦ 9 . GRAMS . OUNCES . , 0353 

DATA KILOGRAMS. POUNDS .2,2046. MEGAGRAMS. SHORT TONS 

REM xxoksok** LIQUID VOLUME 

DATA OUNCE. MILLILITERS. 30 .PINTS. LITERS. .4732 

DATA QUARTS . LITERS . . 9464 . GALLONS . LITERS . 3 . 7856 - 

DATA MILLILITERS. OUNCE'S . . 03. LITERS. PINTS. 2. 1134 

DATA LITERS . QUARTS .1.0 567 . LITERS . GALLONS . . 2642 

REM »c;fOf;>ioK><OK;soK 



< 1 . .1. 



RUN 

DO YOU WISH TO CONVERT LENGTH <L). AREA (A). 

MASS (M). OR LIQUID VOLUME <V)? 
? L 



NBR 


FROM 


1 


INCHES 


? 


FEET 


3 


YARDS 


4 


MILES 


5 


MILLIMETERS 


6 


METERS 


7 


METERS 


8 


KILOMETERS 



CONVERSIONS AVAILABLE 

TO 



MILLIMETERS 

METERS 

METERS 

KILOMETERS 

INCHES 

FEET 

YARDS 

MILES 



ENTER THE NUMBER OF THE CONVERSION TO BE USED <0 WHEN DONE)? 3 
ENTER THE NUMBER OF YARDS? 10 
10 YARDS= 9.144 METERS 

ENTER THE NUMBER OF THE CONVERSION TO BE USED (O WHEN DONE)? O 



BREAK IN 1080 
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RUN 

DO YOU WISH TO CONVERT LENGTH (L), AREA (A)? 

MASS <M)> OR LIQUID VOLUME (V)'? 
? A 

CONVERSIONS AVAILABLE 

TO 



NBR 


FROM 


1 


SQ INCHES 


*? 


SO FEET 


3 


SQ YARDS 


4 


SQ MILES 


5 


ACRES 


6 


SQ CENTIMETERS 


7 


SQ METERS 


8 


SQ KILOMETERS 


9 


SQ HECTOMETERS 



SQ CENTIMETERS 

SQ METERS 

SQ METERS 

SQ KILOMETERS 

SQ HECTOMETERS (HECTARES) 

SQ INCHES 

SQ YARDS 

SQ MILES 



ENTER THE NUMBER OF THE CONVERSION TO BE USED (0 WHEN DONE)? 4 
ENTER THE NUMBER OF SQ MILES? 10 
10 SQ MILES= 25.9 SQ KILOMETERS 

ENTER THE NUMBER OF THE CONVERSION TO BE USED <0 WHEN DONE)? 

BREAK IN 1080 



MAJOR SYMBOL TABLE 



METRIC CONVERSIONS 



I NAME 

I 



DESCRIPTION 



MAXIMUM ARRAY SIZE - LENGTH 
MAXIMUM ARRAY SIZE - AREA 
MAXIMUM ARRAY SIZE - WEIGHT 
MAXIMUM ARRAY SIZE - VOLUME 
STANDARD LENGTH UNIT 
METRIC LENGTH UNIT 
CONVERSION FACTOR 
STANDARD AREA UNIT 
METRIC AREA UNIT 
CONVERSION FACTOR 
STANDARD WEIGHT UNIT 
METRIC WEIGHT UNIT 
CONVERSION FACTOR 
STANDARD VOLUME UNIT 
METRIC VOLUME UNIT 
CONVERSION FACTOR 
CONVERSION OPTION NUMBER 
INPUT LENGTH 
CONVERTED LENGTH 
INPUT AREA 
CONVERTED AREA 
INPUT WEIGHT 
CONVERTED WEIGHT 
INPUT VOLUME 
CONVERTED VOLUME 



I 


M 


I 


Ml 


I 


M2 


I 


M3 


I 


Ll*< ). 


I 


L2*< ). 


I 


L3< ) . 


I 


Al$< ). 


I 


A2$< ). 


I 


A3( ) , 


I 


Wl$< ). 


I 


W2$( ). 


I 


W3< > . 


I 


Vl*< ). 


I 


V2$< ). 


I 


V3< ) . 


I 


N 


I 


LO 


I 


L 


I 


AO 


I 


A 


I 


WO 


I 


W 


I 


VO 


I 


V 







FUNCTIONS USED 



I NAME 



DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 
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TEMPERATURE CONVERSIONS 



Description 

This program provides an easy and fast capability to convert between 
the Celsius and Fahrenheit temperature systems. 

Functions of the Program 

The direction of the conversion is specified followed by the tempera- 
true that is to be converted. The converted temperature (in the other 
scale) is then printed. 

Instructions for Use 

Run the program and answer the questions asked. 

Output Description 

See example provided. 



20 REM TEMPERATURE CONVERSION PROGRAM 

30 REM **** DATA INITIALIZATION jkjkjkjkjk 

m F=32 

50 C--0 

60 REM **x* PROCESSING AREA **** 

70 PRINT "CELSIUS TO FAHRENHEIT (C) OR FAHRENHEIT TO CELSIUS <F>?" 

SO INPUT T* 

90 IF T*="C" THEN ISO 

.1.0 PRINT "ENTER THE FAHRENHEIT TEMPERATURE" 

110 INPUT F 

120 C=(F-32)*5/9 

.1.30 PRINT "THE CELSIUS TEMPERATURE IS J 'id" DEGREES" 

l-IO GOTO 21.0 

1.50 PRINT "ENTER THE CELSIUS TEMPERATURE" 

160 INPUT C 

1.70 F=-"(C*9/5>+32 

ISO PRINT "THE FAHRENHEIT TEMPERATURE IS J "tFf DEGREES" 

.1.90 GOTO 210 

200 REM a***:*'* PROGRAM TERMINATION POINT **** 

210 PRINT 

220 PRINT 

230 STOP 



RUN 

CELSIUS TO FAHRENHEIT <C) OR FAHRENHEIT TO CELSIUS (F)' 

? F 

ENTER THE FAHRENHEIT TEMPERATURE 

? 212 

THE CELSIUS TEMPERATURE IS? 100 DEGREES 



BREAK IN 230 
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RUN 

CELSIUS TO FAHRENHEIT <C> OR FAHRENHEIT TO CELSIUS (F)'? 
? F 

ENTER THE FAHRENHEIT TEMPERATURE 
? 

THE CELSIUS TEMPERATURE IS! -17.7778 DEGREES- 
BREAK IN 230 

RUN 

CELSIUS TO FAHRENHEIT <C) OR FAHRENHEIT TO CELSIUS (F)'i' 

? C 

ENTER THE CELSIUS TEMPERATURE 

t 

THE FAHRENHEIT TEMPERATURE IS J 32 DEGREES 

BREAK IN 230 

RUN 

CELSIUS TO FAHRENHEIT (C) OR FAHRENHEIT TO CFLSTUS < F >'? 

? C 

ENTER THE CELSIUS TEMPERATURE 

? 100 

THE FAHRENHEIT TEMPERATURE IS! 212 DEGREES 



BREAK IN 230 



MAJOR SYMBOL TABLE - TEMPERATURE CONVERSIONS 
I j 

I NAME ,. DESCRIPTION j 

j j 

IT* .. CONVERSION TYPE (DIRECTION) I 
I F .. FAHRENHEIT TEMPERATURE I 

I C . . CELSIUS TEMPERATUE I 

I 
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CURRENCY CONVERSIONS 



Description 

This program converts from dollars to any other of the world's cur- 
rencies. 

Functions of the Program 

The exchange rate and currency name is entered along with the starting 
and ending range of dollars to be converted. The computations are then 
performed, and the results are printed for the range specified. 

Instructions for Use 

Run the program and answer the questions asked. 

Output Description 

See example provided. 



20 REM CURRENCY CONVERSION PROGRAM 

30 RFM ***'!!< PROCESSING AREA ****** 

40 PRINT-ENTER THE EXCHANGE RATE .CURRENCY TYPE (I.E. 2.45»MARKS) ' 

50 INPUT ReT* ~ ,„ s 

60 PRINT "ENTER THE RANGE OF VALUES <IN $) TO PRINT <I,E. b>10) 

70 PRINT 

SO INPUT S»F 

90 PRINT 

.1.0 PRINT 

110 PRINT 

120 PRINT "DOLLARS 'JT* 

130 PRINT" - " 

1-40 FOR I = S TO F 

150 PRINT! » TAI3 (5> $»,.♦♦,.♦ " >I*R 

160 NEXT I 

170 REM **** PROGRAM TERMINATION POINT x*** 

180 PRINT 

190 PRINT 

200 PRINT 

210 STOP 



RUN 

ENTER THE EXCHANGE RATE -CURRENCY TYPE < I . E , 2. 65, MARKS) 

y 2.65fMARKS 

ENTER THE RANGE OF VALUES <IN $) TO PRINT <I.E., 5? 10) 



? 5*10 
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DOLLARS 




MARKS 


5 


♦ » 


13.25 


6 


• • 


15.9 


7 


• ♦ 


18.55 


8 


t * 


21.2 


9 


, , 


23.85 


10 ... 


• ♦ 


26.5 



BREAK IN 210 



MAJOR SYMBOL TABLE - CURRENCY CONVERSIONS 

I z 

I NAME .. DESCRIPTION i 

I j 

I R .. EXCHANGE RATE I 
IT* ., CURRENCY NAME I 
IS .. MINIMUM DOLLAR VALUE TO PRINT I 
IF .. MAXIMUM DOLLAR VALUE TO PRINT I 

II . . DOLLAR VALUE - OUT I 
I x 

FUNCTIONS USED 

Z x 

I NAME .. DESCRIPTION t 

j * 

I TAB .. FORMATS PRINT LINES I 

I j 
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Recreational Programs 



Dice Roller 276 

Wordgame 279 

Bingo 284 

Dart Scoring 288 

Tarot Card Dealer 291 

Jogger Record 295 



275 



DICE ROLLER 

Description 

This program rolls dice and prints the results in dice image format. 

Functions of the Program 

The program randomly selects the values for the number of dice to be 
rolled and then prints images of the dice showing their results. Dice 
images are separate subroutines. 

Instructions for Use 
Run the program. 

Output Description 

See examples provided. Dice images are produced for the number of 
dice requested. 



.10 
20 

30 

'to 

50 

60 

70 

80 

90 

10 

HO 

120 

130 

140 

150 

160 

170 

iao 

190 
200 
21 
220 
230 
240 
250 
260 
270 
280 
290 
30 
310 
320 
330 
310 
350 
360 



REM DICE PROGRAM 

REM Mi****** DATA INITIALIZATION **** 
DIM D<5> 
Y=0 

REM **** LOOP TO ROLL DICE 
PRINT "ENTER THE NUMBER OF DICE TO ROLL" 
INPUT Dl 
FOR Rl= 1 TO Dl 
GDSUB 140 

NEXT R.1 

REM xokskxc PROORAM TERMINATION POINT xxxx 



STOP 

REM 

LET 

LET 

REM 

IF 

IF 

IF 

IF 

IF 

IF 



xxx RANDOM ROLL 
Z=<RND(Y>x6+l> 
D(R1)=INT<Z> 
xxxok DICE PRINT 



GENERATOR **** 



OUT 



ROUTINE 



D<Rl)=.t THEN GOSUB ,io 
D(R1)=2 THEN GOSUB 310 
DCRD-3 THEN GOSUB 370 
D(R1)=1 THEN GOSUB 430 
D<R1)=5 THEN GOSUB 490 
D(R.t)~6 THEN GOSUB 550 

RETURN 

REM **** DICE IMAGE PRINT **** 

PRINT" " 

PRINT"! I" 

PRINT "I * X" 

PRINT "I I" 

PRINT"-- — " 

RETURN 

PRINT" " 

PRINT"! x I" 

PRINT"! I" 

PRINT"! * I" 

PRINT"— " 

RETURN 
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370 PRINT" D 

380 PRINT "X * X" 
390 PRINT "X * X" 
400 PRINT"! * X" 

4.10 PRINT'" " 

420 RETURN 

430 PRINT' " " 

440 PRINT"! * x 
450 PRINT "I 
460 PRINT"! * * 

470 PRINT" 

480 RETURN 

490 PRINT" 

500 PRINT"! w * 
510 PRINT"! * 
520 PRINT"! x x 

530 PRINT" 

540 RETURN 

550 PRINT"- — 

560 PRINT"! * x 
570 PRINT "I x w 
580 PRINT"!' x x 

590 PRINT" 

600 RETURN 



I" 
X" 
I" 



X" 
I" 
I" 



I" 
I" 
X" 



RUN 

ENTER THE NUMBER OP DICE TO ROLL 

? 1 



1**1 
I I 
1**1 



BREAK IN 120 



RUN 



ENTER THE NUMBER OF DICE TO ROLL 



1**1 
I I 
1**1 



BREAK IN 120 



RUN 

ENTER THE NUMBER OF BICE TO ROLL 

? 3 



1**1 
1**1 
1**1 
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I * I 
I I 
I * I 



1**1 
I * I 
1**1 

BREAK IN 120 



MAJOR SYMBOL TABLE - DICE ROLLER 

j 1 

I NAME .. DESCRIPTION I 

j 1 

I D( ) .. RESULTS OF ROLL I 

I Y . . SEED TO RANDOM NUMBER GENERATOR I 
I Dl .. NUMBER OF DICE TO ROLL I 

I Rl . . ROLL NUMBER I 

j 1 

FUNCTIONS USED 

I 1 

I NAME . . DESCRIPTION I 

j 1 

I INT ,. CONVERTS NUMBER TO INTEGER I 
I RND . . GENERATES A NUMBER RANDOMLY I 
I GOSUB . . BRANCHES TO AND RETURNS I 

I DIM .. SINGLE SIMENSION ARRAYS I 

! 1 
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WORDGAME 

Description 

The popular word search puzzle is automated by this useful home recre- 
ational program. You choose the level of complexity and the words to 
search for. The words that you enter during the program's execution 
will be randomly placed in the puzzle for you to find and circle. Don't 
be surprised if you find them (if you find them!) written in any direc- 
tion, including backwards. No two puzzles are the same so family 
members will never tire of this educational and entertaining recreational 
program. 

Functions of the Program 

The program determines the size and complexity of the puzzle by your 
answers to the program's initial questions. It produces a puzzle with 
random selection of word location and direction. The filling in of blank 
spaces is also accomplished by the random selection of letters. 

Instructions for Use 

Run the program and answer the questions asked. 

Data Entry 

Words to be placed in the puzzle are entered through the keyboard. 

Output Description 

See example provided. Puzzle size is limited only by the available 
memory and size of the printing device. 



10 REM WORDGAME PROGRAM 

20 PRINT "ENTER THE NUMBER OF COLUMNS IN THE WORD GAME" 

30 INPUT C 

■?0 PRINT "ENTER THE NUMBER OF ROWS IN THE GAME" 

SO INPUT R 

60 PRINT "ENTER THE NUMBER OF WORDS TO FIND" 

70 INPUT N 

80 REM **** DATA INITIALIZATION **** 

90 DIM L*(Cs.R) 

.(.00 DIM W«(N) 

110 DIM A* (26) 

.1.20 LET A*(1) = "A" 

130 A*<2)="B" 

l^O A$(3)="C" 

.1.50 A$C- t () = "D" 

160 Aif(5> = "E" 

.1.70 A*<6) = "F" 

ISO A*(7)="G" 

190 A*(3)="H" 

200 A* (9)= "I" 
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210 A* (.10)== "J" 
220 A*(11)="K° 
230 Mi(. 12 )=="!.." 
240 Aif.(13)=:"M D 
250 A<JK'.14)=="N" 
260 A*C15)="0" 
270 A*<16)=="P" 
280 A* (17 )=••"«" 
290 A$(18)="R" 
30 A$(19)="S" 
3.10 A$(20)=="T" 
320 A;I>(21) = "U" 
330 A*(22)="V" 
340 A$(23)="W" 
350 A*(24)=="X" 
360 A*(25)="Y" 
370 A*(26)=="Z" 
380 y-o 

390 FOR 1=1 TO C 
400 FOR J»! TO R 

-410 i.*<:i:»j)~"f " 

420 NEXT J 

430 NEXT I 

440 FOR K-- 1 TO N 

450 PRINT "ENTER WORD" 

460 INPUT W*(K) 

470 GOSUB 670 

480 NEXT K 

490 PRINT ".I'LL SHOW YTJU WHERE I'VE HIDDEN THE WORDS IF YOU SAY PLEASE" 

50 INPUT G« 

510 IF G*<>" PLEASE" THEN 530 

520 GOSUB 600 

530 GOSUB .1.450 

540 PRINT 

550 PRINT 

560 GOSUB 600 

570 REM xxxx TERMINATION POINT Joe* 

590 STOP 

590 REM xxx PUZZLE PRINT ROUTINE *** 

600 FOR ,>--l TO R 

6.10 FOR 1=1 TO C 

620 PRINTED IV J-V' " ,' 

630 NEXT I 

640 PRINT 

650 NEXT J 

660 RETURN 

670 REM xokik* WORD BREAKDOWN ROUTINE xcx* 

680 REM SOME LANGUAGE DEPENDENCE IN THIS ROUTINE xxxx 

690 REM 

700 L0==LEN(W*OO> 

7.10 REM xc*** RANDOM SELECTION OF DIRECTION **** 

720 LET 7=1 

730 IF T<10 THEN 760 

740 PRINT ! COULDN'T FIT THE WORDS IN - SORRY TRY AGAIN " 

750 GOTO 580 

760 P=l 

770 P0=1 

780 R=-l 

790 IF RND(Y><>,5 THEN 8.10 

800 LET 0=1 

B.10 R0=--1 

820 IF RNDCY ><=••♦ 5 THEN 340 

830 a 0=1 

840 D=2 
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850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

110 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

120 

121 

1220 

1230 

1240 

1250 

1260 

1270 

1280 

1290 

1300 

131 

1320 

1330 

1340 

1350 

1360 

1370 

1380 

1390 

1400 

1410 

1420 

1430 

1440 

1450 

1460 

1470 

1480 



:,75 THEN 910 



THEN 930 



IF QOl THEN 870 

P=0 

IF Q0O1 THEN 890 

P0=0 

IF RND<Y>< 

D=l 

IF RND(Y>.': 

D=0 

REM *** RANDOM SELECTION OF START POINT' *** 

C0=C 

R0=R 

IF DOl THEN 9B0 

R0=R--L0 

THEN 1000 





THEN 1030 



-1.0 
-L.0 



IF D-C 

C0=C-I. 

IF D-; 

R0=R 

C0--C- 

IF C0OC THEN 1050 
P0=0 

IF R0OR THEN 1070 
P=0 

Zl = (RND < Y ) XR0/1 + . 1 > *1 00+PxL.Q 
Z2= (RND ( Y>xC0/l 0+, 1 >*1 00+POwLO 
X1=INT'<Z1> 
X2=XNT<Z2) 

REM XX** ENTRY OF WORD IN THE PUZZLE 
IF D=l THEN 1340 
IF D=0 THEN 1240 
FOR 1=1 TO L0 

IF L*<X2+<I-l>*G0i.Xl + CI~l>x<3) = » . " 

IT L*<X2+(I-l)>KH0yXl+(I-l)>KQ)- : 
NEXT I 
T=0 
FOR I = 1 TO L0-1 

LET L*<X2+IjkQ0 »Xl+I*a>=M:rD*(W*<K) f I'+l r 1 ) 
NEXT I 

L* ( X2 ? XI ) =MID* < W* < K > > 1 f 1 ) 
GOTO 1430 
FOR 1=1 TO L0 

IF L* < X2+ C 1 -■ 1 > xQ , X 1) 

IF L* ( X2+ ( 1-1 ) xKO , XI ) 
NEXT I 
T=G 
FOR 1=1 TO L0-1 

L* ( X2+IKG , XI ) =MID* ( W* < K ) , 1+1 , 1 ) 
NEXT I 

L*(X2fXl)=MID*<W$(K)»l»l) 
GOTO 1430 
FDR 1=1 TO L0 

IF L* < X2 » XI + < I- 1 ) KG ) = 

IF L* ( X2 y XI + < 1-1 ) xO > ■= 
NEXT I 
T=0 
FOR 1=1 TO L0--1 

L* ( X2 f Xl+IxQ ) =MID* < W* ( K > , 1+1 , 1 ) 
NEXT I 

L* < X2 f XI ) =MID$ < W* ( K > > 1 » 1 ) 
RETURN 

REM xxx FILL OF REMAINING POSITIONS xxx 
FOR 1=1 TO C 
FOR J=l TO R 
IF L*<I»J) 
Z1=CRNDCY>**26+ 



." THEN 1170 
MID*(W*<K)fI?1) THEN 710 



' . " THEN 1270 
:-MID*(W*<K)fIv1) 



THEN 710 



" . " THEN 1370 
s-MID*<W«<K)»I»l) 



THEN 710 



:> " « " THEN 
01>*100 



1500 
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.1.^90 


L*<I»J)=A*(INT<Z1>) 






150 


NEXT J 






1510 


NEXT I 






1520 


REM *** PRINT OF THE WORDS 


TO 


FIND 


1530 


PRINT 






.1.540 


PRINT WORD LIST" 






1550 


FOR K=l TO N 






1560 


PRINTW$(K> 






1570 


NEXT K 






1580 


RETURN 







RUN 

ENTER THE NUMBER OF COLUMNS IN THE WORD GAME 

'!' 10 

ENTER THE NUMBER OF ROUS IN THE GAME 

'? 10 

ENTER THE NUMBER OF WORDS TO FIND 

'? 3 

ENTER WORD 

? ADAMS 

ENTER WORD 

t WILSON 

ENTER WORD 

? CARTER 

I'LL SHOW YOU WHERE I'VE HIDDEN THE WORDS IF YOU SAY PLEASE 

? PLEASE 



CART E R 

A .... N 

. D . . . O 

. . A . . S 

. , . M . L 
....SI 

..... W 



WORD LIST 



ADAMS 

WILSON 

CARTER 



y 


L 


Y 


J 


G 


O 


M 


C 


Z 


F 


N 


H 


P 


D 


K 


V 


Q 


T 


Z 


W 


U 


P 


D 


M 


B 


E 


V 


B 


Z 


X 


C 


C 


A 


R 


T 


E 


R 


N 


V 


Z 


U 


A 


C 


B 


Y 


R 


N 


Q 


G 


Q 


U 


H 


D 


J 


\> 


J 


O 


E 


D 


V 


D 


G 


U 


A 


V 


P 


S 


Z 


Z 


Y 


L 


Z 


A 


H 


M 


L 


L 


Z 


N 


U 


W 


z 


L 


S 


A 


S 


I 


B 


B 


L 


J 


K 


U 


W 


I 


K 


W 


B 


P 


X 



BREAK IN 580 
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MAJOR SYMBOL TABLE - WORD6AME PRINT 
.. DESCRIPTION 



I NAME 

I 

I C 



R 

R 

L*< 

W*< 

A*< 

Y 

LO 

GO 

P 

Q 

PO 

Zl 

Z2 

XI 

X2 



NUMBER OF COLUMNS 
NUMBER OF ROWS 
NUMBER OF WORDS IN PUZZLE 
LETTER ARRAY FOR OUTPUT 
WORDS TO PLACE IN PUZZLE 
LETTER ARRAY FOR SELECTION 
SEED TO RANDOM NUMBER GENERATOR 
LENGTH OF WORD 

SETS WORD PLACEMENT DIRECTION 
SETS WORD PLACEMENT DIRECTION 
SETS WORD PLACEMENT DIRECTION 
SETS WORD PLACEMENT DIRECTION 
RANDOMLY SELECTED ROW 
RANDOMLY SELECTED COLUMN 
INTEGER OF ROW NUMBER 
INTEGER OF COLUMN NUMBER 



FUNCTIONS USED 



I NAME 



DESCRIPTION 



CONVERTS NUMBER TO INTEGER 
GENERATES A NUMBER RANDOMLY 
BRANCHES AND RETURNS 
2 DIMENSION ARRAYS 

SOME MACHINE DEPENDENCY FOLLOWS 

CALCULATES LENGTH OF WORD 

SELECTS A LETTER FROM THE MIDDLE OF WORD 



I 


INT 


I 


RND 


I 


GOSUB . 


I 


DIM 


I 


NOTE . 


I 




I 


LEN 


I 


MID* . 


T- 
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BINGO 

Description 

You'll never be without a BINGO game once you've entered this 
program. 

Functions of the Program 

BINGO cards are printed for the number of players requested, with 
randomly selected number placement for recording the numbers called. 
The program then proceeds to select random numbers to be called and 
prints these numbers each time the return for the next call is pressed 
until a "BINGO" is achieved. 

Instructions for Use 

Run the program, and continue to press the return for the next call 
until someone BINGOs. Enter the word "BINGO" to terminate the 
program. 

Output Description 

See example provided. The number of cards printed is determined by 
your input to the question. For checking purposes, a list of all numbers 
called is produced after the BINGO is achieved. 



20 REM BINGO PROGRAM 

30 REM xsoook DATA INITIALIZATION **** 
■f0 Y=0 

50 DIM C(10>75> 
AD DIM Ai|><5) 

70 READ A*(l>»A*C2)»A*(3)»A$C^)i-A*(5> 
80 DATA •B"«."I"»"N ,, »"G , '» ,, C]" 

90 PRINT "DO YOU WISH TO HAVE CARDS PRINTED?" 
100 INPUT G* 
110 IF G*=«N" THEN 160 
120 GOSUB 590 
130 PRINT 
:M0 PRINT- 
ISO PRINT 

160 PRINT "PRESS THE RETURN FOR THE NEXT CALL - OR - ENTER BINGO" 
170 FOR 10=1 TO 75 
180 INPUT' B$ 

190 IF B£=° BINGO" THEN 220 
200 GOSUB 1020 
210 NEXT 10 

220 PRINT "NUMBERS CALLED" 
230 PRINT 
2^0 FOR 1=1 TO 75 
250 IF Cds-D-O THEN 270 
260 PRINTAiKI/15-H>" -"I 
270 NEXT I 
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280 


PRINT 


290 


REM Joe* TERMINATION POINT *** 


300 


STOP 


310 


REM *** LINE PRINTING ROUTINE xxx 


320 


FOR J=l TO 2 


330 


PRINT' " 


3-40 


NEXT J 


350, 


PRINT 


340 


RETURN 


370 


REM **x RANDOM DRAW OF CARDS *** 


380 


Z=(RND<Y)*<<H-L)/100)+.01))K100+L 


390 


X-I'NKZ) 


•400 


IF C(K,X)O0 THEN 370 


•410 


C<KrX)~C<KrX)+l 


420 


RETURN 


430 


REM ***: ARRAY CLEARS AND FILLS *** 


•4-40 


FOR L=l TO 2 


450 


FOR K=l TO 75 


460 


CCLfK)-0 


470 


NEXT K 


•480 


NEXT L 


490 


FOR L=0 TO 60 STEP 15 


500 


H=L+15 


51 


FOR T - 1 TO 5 


520 


FOR K = 1 TO 2 


530 


GOSUB 370 


5-40 


NEXT K 


550 


NEXT T 


560 


NEXT L 


570 


RETURN 


580 


REM *** CARD PRINT ROUTINE *sok 


590 


PRINT "HOW MANY CARDS SHOULD I PRINT'?" 


600 


INPUT N 


610 


IF N=0 THEN 1010 


620 


PRINT "POSITION PAPER NOW" 


630 


INPUT G* 


6-40 


FOR 1=1 TO N/2+,5 


650 


GOSUB -430 


660 


GOSUB 310 


670 


FOR J= 1 TO 2 


680 


PRINT"! "A*<l) n ! "i 


690 


PRINT A* (2)" 1 "A* (3)" ! "A* (-4) 


700 


NEXT J 


710 


PRINT 


720 


GOSUB 310 


730 


FOR K=l TO 5 


7-40 


FOR J-l TO 2 


750 


S=:l. 


760 


FOR L=l TO 5 


770 


FOR M=S TO S+14 


780 


IF C<J»M)=0 THEN 890 


790 


IF M<10 THEN 860 


800 


IF K<>3 THEN 8-40 


810 


IF L<>3 THEN 840 


820 


PRINT "(FREE"? 


830 


GOTO 870 


840 


PRINT" < "M? 


850 


GOTO 870 


860 


PRINT" ! "M5 


870 


C<JrM>~0 


880 


GOTO 900 


890 


NEXT M 


900 


S=S+15 


910 


NEXT L 



"A*<5) ' 
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920 PRINT"! "? 

930 NEXT J 

940 PRINT 

950 GOSUI3 3.1.0 

960 NEXT K 

980 PRINT 

990- PRINT 

100 NEXT X 

1010 RETURN 

1020 REM «»ok* RANDOM DRAWS FDR CALLS xcsok 

1030 Z= < RND < Y ) * ♦ 75+ « 1 > * 1 

1040 X=OLNT<Z> 

1050 IF C<1»X)<>0 THEN 1030 

1060 ca»x>=ca>x>+i 

1070 J=INT<X/15)+1 
1080 PRINTA$(J)°-"X 
1090 PRINT 
1100 RETURN 



RUN 

DO YOU WISH TO HAVE CARDS PRINTED 

? Y 

HOW MANY CARDS SHOULD I PRINT 

■? 2 

POSITION PAPER NOW 



! B ! 


I 


N ! 


G ! 


! 


! 1 ! 


16 


31 ! 


49 ! 


61 ! 


( 4 ! 


25 


33 ! 


51 ! 


64 ! 


I 5 ! 


26 


FRE ! 


55 ! 


65 ! 


! 8 ! 


28 


42 ! 


58 i 


72 ! 


! 15 > 


30 


44 ( 


59 ! 


74 ! 



! B ! 


I 


N ! 


G 


O ! 


! 5 ! 


16 


34 ! 


46 


66 ! 


! 6 ! 


24 


35 ! 


51 


67 ! 


! 8 ! 


28 


FRE ! 


54 


68 ! 


i 12 ! 


29 


38 ! 


57 


72 ! 


! 14 ! 


30 


40 ! 


59 


74 ! 



PRESS THE RETURN FOR THE NEXT CALL - OR - ENTER BINGO 

f 

6- 55 

? 

B- 10 

? 

I- 29 

f 

0- 66 



•f 
B- 



I- 16 
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y 


BINGO 






NUMBERS 


CALLt. 


:d 


B 


_ 2 






B 


~ 10 






I 


- 16 






I 


- 29 






G 


- 53 






G 


- 55 









- 66 
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MAJOR SYMBOL TABLE - BINGO 
NAME .. DESCRIPTION 



C( ) 

A$< ) 

10 

B$ 

Y 

Z 

X 

N 



NUMBERS CALLED/ON CARDS ARRAY 

LETTER CALLED 

COUNTER OF NUMBER OF CALLS 

BINGO INDICATOR 

SEED TO RANDOM NUMBER GENERATOR 

RANDOM NUMBER GENERATED 

INTEGER OF RANDOM NUMBER 

NUMBER OF CARDS TO PRINT 



FUNCTIONS USED 



NAME 

INT 
RND 
GOSUB 
DIM 



DESCRIPTION 

CONVERTS NUMBER TO INTEGER 
GENERATES A RANDOM NUMBER 
BRANCHES TO AND RETURNS 
2 DIMENSION ARRAYS 
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DART SCORING 

Description 

This program acts as scorekeeper for a darts match between individuals 
or teams. 

Functions of the Program 

The program allows for variable starting points and player numbers. 
Total scores are printed and the scores of each player are requested and 
subtracted from the totals prior to printing. 

Instructions for Use 

Run the program, and respond to the program's messages. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See the example provided. 



20 REM DART SCORING PROGRAM 

30 REM *** DATA INITIALIZATION ***« 

fO M-10 00 

50 DIM sao) 

60 PRINT "ARE YOU PLAYING AS INDIVIDUALS CX>t OR TEAMS <T>?" 

70 INPUT A* 

80 T*= "PLAYER" 

90 IF Atf="I" THEN 110 

100 T*="TEAM" 

110 PRINT" HOW MANY " Mfc? "S ARE PLAYING?" 

120 INPUT N 

130 PRTNT "WHAT WILL YOU START WITH 301 t OR 501?" 

1-40 INPUT SI 

150 FOR 1=1 TO N 

160 5<I)=S1 

170 NEXT I 

.1.30 PRINT 

190 PRINT 

200 PRINT 

210 REM XOKJKWXOKJIOKXOKiKHOfOiesOKJIOKSIOKXOK*: 

220 REM xxx PROCESSING STARTS «»** 

230 FOR K=l TO M 

2-40 PRINT 

250 FOR 1=1 TO N 

26 PRINT TAB < 1 * < I- 1) > i T* 1 1 J 

270 NEXT I 

230 PRINT 

290 FOR 1= 1TG N 

300 PRINTTAE:<10*<I-1 )+l);S<I>? 

310 NEXT I 

320 PRINT 
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THE SCORE FDR PLAYER #"15 



410 
- TRY 



AGAIN " 



330 PRINT 

340 FOR 1=1 TO N 

350 PRINT "ENTER 

360 INPUT S.t 

370 IF SKO THEN 390 

380 IF S<I)-S1 >=0 THEN 

390 PRINT "ILLEGAL SCORE 

400 GOTO 350 

410 S<I)=S<I)-S1 

420 IF S<I)=0 THEN 450 

430 NEXT I 

440 NEXT K 

450 PRINT-PLAYER" JI'J" WINS" 

460 PRINT" ARE YOU PLAYING AGAIN?" 

470 INPUT M> 

480 IF A*="Y" THEN .1.30 

490 REM XXXOKiOHKJKiKXC 

500 REM at******** PROGRAM TERMINATION POINT' xcx** 
510 PRINT 
520 PRINT 
530 STOP 



RUN 

ARE YOU PLAYING AS INDIVIDUALS (I), OR TEAMS CD' 

? T 

HOW MANY TEAMS ARE PLAYING? 

? 2 

WHAT WILL YOU START WITH 301, OR 501'? 

? 301 



TEAM 1 
301 



TEAM 2 
301 



ENTER THE SCORE FOR PLAYER # 1 ? 100 
ENTER THE SCORE FOR PLAYER # 2 ? 50 



TEAM 1 
201 



TEAM 2 

251 



ENTER THE SCORE FOR PLAYER # 1 ? 100 
ENTER THE SCORE FOR PLAYER # 2 ? 50 



TEAM 1 
101 



TEAM : 
201 



ENTER THE SCORE FOR PLAYER # 1 ? 99 
ENTER THE SCORE FOR PLAYER # 2 ? 50 



TEAM 1 



TEAM 2 
151 



ENTER THE SCORE FOR PLAYER # 1 ? 3 
ILLEGAL SCORE - TRY AGAIN 
ENTER THE SCORE FOR PLAYER # 1 ? 2 
PLAYER 1 WINS 

ARE YOU PLAYING AGAIN? 
? N 



BREAK IN 530 
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MAJOR SYMBOL TABLE - DART SCORING 



I NAME 



.. DESCRIPTION 



M 

T$ 

N 

SI 

S< ) 

I 



MAXIMUM NUMBER OF SCORING ITERATIONS 

PLAYER/TEAM HEADING 

NUMBER PLAYING 

STARTING SCORE/SCORE PER PLAY 

SCORE ARRAY 

PLAYER INDICATOR 



FUNCTIONS USED 



I NAME 



,. DESCRIPTION 



I 

I TAB 
I DIM 

I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAY 
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TAROT CARD DEALER 

Description 

This program shuffles and deals— for the user— the requested number of 
cards from a Tarot deck. 

Functions of the Program 

The program initializes data through line number 700. The cards are 
then shuffled until the user "feels" that they are right. The program 
then prints the number of cards requested. 

Instructions for Use 

Run the program and respond to the program's messages. 

Data Entry 

All data is entered through the keyboard. 

Output Description 

See example provided. Cards are printed one at a time or continuously, 
with the "REVERSED" indicator shown when appropriate. 



10 REM 


TAROT PROGRAM 


2D REM 


*** DATA INITIALIZATION **■* 


30 DIM 


0(78) 


40 DIM 


S*<78> 


50 DIM 


N$<78) 


60 1 


"OR 


K0 = 1 TO 5 


70 


FOR K=l TO 14 


80 




K1 = (K()-1)>k14 


90 




N*(K1+1)="I" 


100 




N*<K1+2)="II" 


110 




N*(Kl-*-3) = °lTI" 


120 




N*<K1+4;> = "IV" 


130 




N*(K1+5)="V" 


140 




N!|;<K1+6> = "VI" 


150 




N*<Kl+7>=°VII g 


160 




N«<Kl+8)="Vrri" 


170 




N*<K1+9>="IX" 


180 




N*<K1 + 10)=="X" 


190 




N*<K1 + 11)='"PAGE" 


200 




N* < Kl +12 ) = " KNIGHT " 


210 




N* ( K 1 + 1 3 ) = " QUEEN " 


220 




N*<K1+14)="KING" 


230 


NEXT K 


240 


NEXT K0 


250 


N*C67)=-"XI n 


260 


N*(68)-"XTI" 


270 


N*(69)="XIII° 


280 


N*(70)=="XIV B 


290 


N$(71)~"XV» 


300 


NKi<72)=="XUI" 
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310 N$ (73)=° XVII" 

320 N$(74)="XVIIT" 

330 N$(75)="XIX" 

340 N$(76)="XX" 

350 N* (77)=" XXI" 

360 N$(78)="0" 

370 TOR I = 1 TO 14 

380 S$(I)="OF PENTACLES" 

390 NEXT I 

400 FOR 1=15 TD 28 

«0 S£(I)="OF SWORDS" 

420 NEXT I 

430 FOR I = 29 TO 42 

440 S*(I)="OF CUPS" 

450 NEXT I 

460 FOR 1= 43 TO 56 

470 S»<I)= u OF WANDS" 

480 NEXT I 

490 S* (57)=" THE MAGICIAN" 

500 S* (58)= "THE HIGH PRIESTESS" 

510 S$(59)="THE EMPRESS" 

520 SDK 60) = "THE EMPEROR" 

530 S*(61)="THE HIEROPHANT" 

540 S* (62)=" THE LOVERS" 

550 S* (63)=" THE CHARIOT" 

56 S$ ( 64 ) = " JUSTICE " 

570 S* (65)=" THE HERMIT" 

580 S$( 66)=" WHEEL OF FORM/NE" 

590 S* (67)= "STRENGTH" 

600 S* (68)= "HANGED MAN" 

610 S* (69)=" DEATH" 

62 S* ( 7 ) = " TEMPER ANGE " 

630 S* (71)=* THE DEVIL" 

640 S*(72)="THE TOWER" 

650 S* (73)= "THE STAR" 

660 S* (74)= "THE MOON" 

670 S* (75)= "THE SUN" 

680 S* ( 76 ) = " JUDGEMENT' " 

690 S*(77)=»THE WORLD" 

700 S<4;(78) = "THE FOOL" 

710 Y=0 

720 PRINT "ENTER THE NUMBER OF CARDS TO BE DEALT" 

730 INPUT N 

740 REM xoksok LOOP TO SELECT CARDS xxxx 

750 FOR Jl=l TO N 

760 GOSUB 1070 

770 NEXT Jl 

780 PRINT "THE CARDS HAVE BEEN SHUFFLED. DO YOU WISH A RE-SHUFFLE <Y OR N) ' 

790 INPUT Gtf 

S00 IF G*="N" THEN 860 

810 PRINT "THE CARDS ARE BEING RESHUFFLED NOW" 

820 FOR 1=1 TO 78 

830 C(I)=0 

840 NEXT I 

850 GOTO 750 

860 PRINT "DO YOU WISH TO SEE ALL OF THE CARDS AT ONCE (Y OR N) " 

870 INPUT G* 

880 IF Git="Y" THEN 90 
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890 PRINT "PRESS THE RETURN TO TURN OVER THE CARDS" 

900 REM *** ROUTINE TO FIND AND PRINT THE CARDS *** 

910 FOR J=l TO N 

920 IF G*0"N" THEN 9^0 

930 INPUT H* 

9-40 FOR U=l TO 78 

950 IF C(U)OJ THEN 1020 

960 M*=" 

970 IF RND(Y> <.5 THEN 990 

980 M$=" (REVERSED) " 

990 PRINT "CARD * "J" IS..... "N*(U) " "S*<U)" "M* 

1000 PRINT 

1010 GOTO 1030 

1020 NEXT U 

1030 NEXT J 

10^0 REM **** PROGRAM TERMINATION POINT **** 

1050 STOP 

1060 REM ***** RANDOM CARD SELECTION ROUTINE **** 

1070 Z=(RND(Y)*78+1) 

1080 X=INT(Z> 

1090 IF C(X)O0 THEN 1070 

1100 C(X>=C(XHJ1 

1110 RETURN 



RUN 

ENTER THE NUMBER OF CARDS TO BE DEALT 

'? 10 

THE CARDS HAVE BEEN SHUFFLED. DO YOU WISH A RE-SHUFFLE <Y OR N) 

? Y 

THE CARDS ARE BEING RE-SHUFFLED NOW 

THE CARDS HAVE BEEN SHUFFLED. DO YOU WISH A RE-SHUFFLE (Y OR N) 

? N 

DO YOU WISH TO SEE ALL OF THE CARDS AT ONCE <Y OR N) 

? Y 

XX JUDGEMENT 



. I OF CUPS (REVERSED) 

. IV THE EMPEROR (REVERSED) 

. VII OF SWORDS (REVERSED) 

. V OF CUPS 

. II OF CUPS 

. IV OF CUPS 

. KNIGHT OF SWORDS 

. VII OF PENTACLES (REVERSED) 

. . IV OF WANDS 



CARD 


# 


1 


IS « 4 * . 


CARD 


# 


2 


IS.*.. 


CARD 


* 


3 


IS. . .. 


CARD 


* 


A 


IS. . . . 


CARD 


# 


5 


I s * * * ♦ 


CARD 


# 


6 


IS. . . . 


CARD 


* 


7 


a. s * * * * 



CARD # 8 IS. . . . 
CARD # 9 IS. . . . 
CARD # 10 IS. . . 



(REVERSED) 
(REVERSED) 



BREAK IN 1050 
OK 
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MAJOR SYMBOL TABLE 



TAROT CARD DEALER 



I NAME 



DESCRIPTION 



CARD SELECTED INDICATOR ARRAY 
CARD VALUE ARRAY 
SUIT ARRAY 

NUMBER OF CARDS TO DEAL 
DUMMY TIMING VARIABLE 
INDICATOR IF REVERSED 
GENERATED RANDOM NUMBER- 
INTEGER OF RANDOM NUMBER 
SEED TO RANDOM NUMBER 



I 


C< ) . 


I 


N$( ) . 


I 


S*< ) . 


I 


N 


I 


m 


I 


M$ 


I 


Z 


I 


X 


I 


Y 


T- 





FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



INT .. CONVERTS NUMBER TO INTEGER 

RND . . GENERATES A NUMBER RANDOMLY 

GOSUB . . BRANCHES TO AND RETURNS 

DIM .. SINGLE DIMENSION ARRAY 
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JOGGER RECORD 

Description 

The jogger or jogging family will find this a useful addition to the pro- 
gram library. The program produces a graphic display of their jogging 
activities. 

Functions of the Program 

The program reads the data items and produces a graphic output repre- 
senting the distance traveled and either speed or time indicators. The 
program prints daily results and consequently considers days not 
recorded in the output. 

Instructions for Use 

Enter your jogging activity at the time it occurs as DATA statements to 
the program. 

Data Entry 

All data is entered by means of DATA statements. 

Data Format 

The format of the data is: 

Month-Day-Year (numeric), Miles, Whole hours run, 
Additional minutes run 
Note the indicator for the end of data. 

Output Description 

See examples provided. Separate outputs are produced based upon the 
speed or time option selected. The asterisks, *** (as shown), are used 
to indicate performance and are scaled to indicate time run or miles/ 
hour. To change the scaling factor, change the values of variables SI and 
S2 in the program. 



10 REM JOGGER PROGRAM 

20 S:l~3 

30 N=32000 

^0 DIM Mi|»<.12) 

50 DIM DC12) 

<50 FOR 1=1 TO 12 

70 READ M*(I),[)(I) 

80 NEXT I 

90 PRINT "ARE YOU INTERESTED IN SPEED OR TIME" 

10 INPUT Gif 

110 PRINT 

120 PRINT "ALIGN FOR PRINTING " 
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130 

140 

150 

160 

170 

180 

190 

200 

210 

220 

230 

2-90 

250 

260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

330 

390 

400 

410 

■420 

430 

4-40 

450 

460 

470 

430 

490 

500 

510 

520 

530 

5-40 

550 

560 

570 

530 

590 

600 

610 

620 

630 

640 



M E" 
" SI " K/MI1.E " TAB < 42 ) S2 ° JK/MINUTE " 



E D" 

"SI "*/MILE°TAB<43) 1/S2°K/MINUTE" 

MILES " TAB < 55 ) " MIN i SEC • 

AREA J*** 



THEN 420 



INPUT X* 

PRINT 

PRINT" D I S T A N C E 

IF G*=° SPEED" THEN 210 

S2=10 

PRINTTAB<45)"T I 

PRINT" DATE 

GOTO 250 

S2=2 

PRINTTABC45) U S P E 

PRINT" DATE 

PRINT" 

REM xxx PROCESSING 

PRINT 

FOR 1= 1 TO N 

READ CO 

IF C0=0 THEN 870 

READ M0 

READ TOrTl 

T1=T1+T0*60 

El=Tl/<60/S2) 

E2==T1 

IF Gtf<>" SPEED 

E1=T1/S2 

T2=T1*60 

M2=(T1»60)/M0 

M3==INT<M2/60> 

M4=INT<INT<(M2/60-M3))Kl00)5K.6) 

E1=M3/S2 

M1=INT<CO/10000> 

C0=C0-M1*10000 

Di=INT<C0/100> 

C0=C0--D1*100 

Y1=INT<C0> 

IF ri/4 =INT<Yl/4) THEN 490 

D(2)=D<2)+1 

GOSUB 650 

PRINTM* < M 1) D 1 TAB < 7 > " I ° ? 

FOR J=l TO M0*S1 
PRINT"*"? 

NEXT J 

PRINTTAB<29>M0? 

PRINTTAB(35)"I"f 

FOR J=l TO El 
PRINT"*"? 
NEXT J 

IF G*==" SPEED" THEN 620 

PRINTTAB<55> " ( "E2" ) " 

GOTO 630 

PRINTPAB-<540M3> " J " ?M4 

NEXT I 
REM **** CATCH UP ROUTINE FOR DAYS MISSED xokkx 
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650 IF S9=0 THEN 820 

660 XF Dl=S9+i THEN 810 

670 IF D1>S9+1 THEN 700 

680 D5=D<88) 

690 GOTO 710 

70 D5=D1--1 

710 IF S9+1 > D5 THEN 750 

720 FOR L-S9+1 TO 05 

730 PRINTM*<S8>LTAB<7) «I"TAB<35> "I" 

710 NEXT L 

750 IF M1=S8 THEN 8-10 

760 59=0 

770 88=88+1 

780 IF S8<13 THEN 660 

790 88=1 

BOO 87=37-+ 1 

810 GOTO 660 

820 87= Yl 

830 S8=M1 

8-10 S9=D1 

850 RETURN 

860 REM KKaoK TERMINATION POINT x-'xokx 

870 STOP 

880 REM XXKXJKXKXKKXOKKKilOIHIOIfKX 

890 REM DATA FOR INITIALIZATION *** 

900 REM SOKiKJKSOKJKXCSOKaOKXOiOKJKXOKSOKSOi; 

910 DATA JANr31yFEB?28,MARy31yAPR?30rMAYr31?JUN?30?JIJLr31?AUG?31 

920 DATA SEPr30?QCTy31?NOiv>r30yDEC?31 

930 REM ***■ DATA ENTRIES FOLLOW ***** 

910 DATA 112878?3yl?0 

950 DATA 120178? 3?1?0 

960 DATA 120278? 1?1?0 

970 DATA 120378? 1?0y 55 

980 DATA 120578? 1j.1v 05 

990 DATA 121278? 1?1? 15 

1000 DATA 121378?5rl?30 

1010 DATA I2l178?6?ly10 

1020 DATA 121678 ?1?0r59 

1030 DATA I2l778r1?l?0 

1010 DATA 121878?3?lr0 

1050 DATA 121978 r3?l?5 

1060 DATA 122078?3?1?5 

1070 DATA 122178r3r?59 

1080 DATA 122278r3?0?57 

1090 DATA 122378i-3, Or 55 

110 DATA 1 22578 ?1?lr 10 

1110 DATA 122678?3rl?0 

1120 DATA 122878y1?0?5Q 

1130 DATA 122978r5?l?10 

1110 DATA 123178rl.75?0y30 

1150 DATA 010379?! ? 0?15 

1160 DATA 
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RUN 

ARE YOU INTERESTED IN SPEED OR TIME 

'? SPEED 



ALIGN FOR PRINTING 
? 






D I S T A N C E 




DATE 


4 */MILE 


MILE 


NOV 28 


I************ 


3 


NOV 29 


I 




NOV 30 


I 




DEC 1 


I************ 


3 


DEC 2 


I**************** 


4 


DEC 3 


I **************** 


4 


DEC 4 


I 




DEC 5 


I**************** 


4 


DEC 6 


I 




DEC 7 


I 




DEC 8 


I 




DEC 9 


I 




DEC 10 


T 




DEC 11 


I 




DEC 12 


I**************** 


4 


DEC 13 


I******************** 


5 


DEC 14 


I************************ 


6 


DEC 15 


I 




DEC 16 


I**************** 


4 


DEC 17 


I**************** 


4 


DEC 18 


I************ 


3 


DEC 19 


I************ 


3 


DEC 20 


I************ 


3 


DEC 21 


I************ 


3 


DEC 22 


I************ 


3 


DEC 23 


I************ 


3 


DEC 24 


I 




DEC 25 


I**************** 


4 


DEC 26 


I************ 


3 


DEC 27 


1 




DEC 28 


I**************** 


4 


DEC 29 


I******************** 


5 


DEC 30 


I 




DEC 31 


I******* 


1 


JAN 1 


I 




JAN 2 


I 




JAN 3 


I**** 


1 


BREAK 


IN 870 





S P E E D 
1 */MINUTE 



MINJSEC 



I******************** 20 i 



******************** 

*************** 

************* 



I 

I 

I 

I 

I 

I**************** 

I 

I 

I 

I 



I****************** 
I****************** 
I**************** 
I 

I************** 
I*************** 
I******************** 
I********************* 
I********************* 
I******************* 
I******************* 
I****************** 
I 

I***************** 
I******************** 
I 

I************ 
I************** 
I 
.75 I***************** 
I 
I 
I*************** 



20 : o 
15 : o 

13 : 45 



16 



14 
15 
20 
21 
21 
19 
19 
18 



15 



18 : 45 
18 ! 
16 ! 39 



45 





39 

39 

39 



19 



17 ! 30 

20 ! 

12 : 30 

14 : o 

17 : 8 



298 BASIC Computer Programs for the Home 



RUN 

ARE YOU INTERESTED IN SPEED OR TIME 

? TIME 

ALIGN FOR PRINTING 





DISTANCE 




TIME 








DATE 


4 */MILE 




12 */HOUR 








NOV 28 


I************ 


3 


I************ 


< 


60 


) 


NOV 29 


I 




I 








NOV 30 


I 




I 








DEC 1 


I************ 


3 


I************ 


( 


60 


) 


DEC 2 


I **************** 


4 


I************ 


( 


60 


) 


DEC 3 


I**************** 


4 


I*********** 


( 


55 


) 


DEC 4 


I 




I 








DEC 5 


I**************** 


4 


I************* 


( 


65 


) 


DEC 6 


I 




I 








DEC 7 


I 




I 








DEC 8 


I 




I 








DEC 9 


I 




I 








DEC 10 


I 




I 








DEC 11 


I 




I 








DEC 12 


I**************** 


4 


I*************** 


( 


75 


) 


DEC 13 


I ******************** 


5 


I****************** 


( 


90 


) 


DEC 14 


I************************ 


6 


I******************** 


( 


100 ) 


DEC 15 


I 




I 








DEC 16 


I**************** 


4 


I*********** 


( 


59 


) 


DEC 17 


I **************** 


4 


I************ 


( 


60 


) 


DEC 18 


I************ 


3 


I************ 


( 


60 


) 


DEC 19 


I************ 


3 


I************* 


( 


65 


) 


DEC 20 


I************ 


3 


T W \1/ M/ Mr \1/ Mr Mr \lr Mr \ir Mr Mr Mr 
A************* 


( 


65 


) 


DEC 21 


I************ 


3 


I*********** 


( 


59 


) 


DEC 22 


I************ 


3 


I*********** 


( 


57 


) 


DEC 23 


I************ 


3 


I*********** 


( 


55 


) 


DEC 24 


I 




I 








DEC 25 


I**************** 


4 


I************** 


( 


70 


) 


DEC 26 


I************ 


3 


I************ 


< 


60 


) 


DEC 27 


I 




I 








DEC 28 


I**************** 


4 


I********** 


( 


50 


) 


DEC 29 


I******************** 


5 


I************** 


( 


70 


) 


DEC 30 


I 




I 








DEC 31 


I******* 


1.75 


I****** 


( 


30 


) 


JAN 1 


T 




I 








JAN 2 


I 




I 








JAN 3 


I**** 


1 


I*** 


( 


15 


) 


BREAK IN 870 
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MAJOR 













I 


NAME 


.. 


DESCRIPTION 


I 

-I 

I 


I 


SI 




SPEED SCALING FACTOR 


I 


S2 


» * 


TIME SCALING FACTOR 


I 


I 


N 


4 * 


MAXIMUM NUMBER OF DATA READS 


I 


I 


MHi< ) 


4 * 


MONTH NAME ARRAY 


I 


I 


d< ) 


■} ♦ 


DAYS IN MONTH ARRAY 


I 


I 


CO 


■t * 


DATE 


I 


I 


MO 


f * 


MILES RUN 


I 


I 


TO 


* * 


HOURS RUN 


I 


I 


Tl 


♦ ♦ 


MINUTES RUN 


I 


I 


El 


t ♦ 


NUMBER OF * TO PRINT 


I 


I 


E2 


* • 


DISTANCE OUT 


I 


I 


M3 


, ♦ 


HOURS OUT 


I 


I 


M4 


» * 


MINUTES OUT 


I 


I 


Ml 


» ♦ 


MONTH 


I 


I 


Dl 


» * 


DAY 


I 


I 


Yl 


♦ ♦ 


YEAR 


I 


I 


D5 


fr * 


CATCHUP DAYS FOR THOSE MISSED 


I 


I 


S7 


♦ • 


YEAR NUMBER 


I 


I 


S8 


» ♦ 


MONTH 


I 


I 


S9 


•♦ 


DAY 


I 




FUNCTIONS USED 




I 


NAME 


♦ ♦ 


DESCRIPTION 


I 


I 


TAB 


• * 


FORMATS PRINT LINE 


I 


I 


INT 


« * 


CONVERTS NUMBER TO INTEGER 


I 


I 


GOSUB 


* * 


BRANCHES AND RETURNS 


I 


I 


DIM 


* * 


SINGLE DIMENSION ARRAYS 


I 
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Hylsl's Diaries 



Golf 




302 


Fishing 




306 


Photography 




310 


Greenhouse 




314 


CB Radio 




318 


Bowling 




322 


General Purpose 


Diary 


326 



301 



GOLF 

Description 

This program produces a diary for the golf enthusiast. It can interpret 
and print all items that the user wants to record for later analysis. 

Functions of the Program 

The program provides a formatted print of all, or selected, items from 
the data records. Supplemental items can be defined by indicating the 
number of items and their names in the first data record. Supplemental 
items can then be read and printed in the same way as the standard 
items. 

Instructions for Use 

Prior to running the program, define the supplemental data items that 

you want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered using DATA statements. 

Data Formats 

See the sample data. The first record defines supplemental items and 

their titles: 

Number of items, Title 1, Title 2, etc. 
Diary entries are then recorded in the following form: 

Date, Course name, Score, Supplemental value 1, value 2, etc. 

Output Description 

See example provided. Print options allow all or selected items to be 

printed. 



20 REM GOLFER'S DIARY PROGRAM 

30 REM >s><<>8< DATA INITIALIZATION *** 

tO K1=0 

SO M=10 00 

60 DIM S*<10) 

70 DIM H'-MIO) 

BO READ N 

90 IF N=0 THEN 130 

100 FOR K=l TO N 

110 READ H'MI-O 

120 NEXT K 

130 PRINT "SHALL I PRINT ALL OF THE ITEMS <Y OR N>?" 

110 INPUT A$ 

150 IF A*=°Y" THEN 330 

160 PRINT-SHALL WE SELECT BASED UPON COURSE <C>» OR OTHER CO?" 
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170 INPUT X2* 

.1.80 IF X2*=-"C" THEN 290 

190 PRINT "ENTER THE ITEM HEADING TO SEARCH FOR" 

200 INPUT XI* 

210 IF N=t) THEN 270 

220 FOR K = 1TO N 

230 IF Xl$<>H*(IO THEN 250 

240 K1=K 

250 NEXT K 

260 IF K1O0 THEN 300 

270 PRINT "ITEM HEADING NOT FOUND -- TRY AGAIN " 

280 GOTO 130 

290 XI »~" COURSE" 

300 PRINT "ENTER THE VALUE OF "JX1$?" TO PRINT" 

310 INPUT X* 

320 REM xok* HEADINGS xxx 

330 PRINT' 

340 PRINT 

350 PRINT' 

36 PRINT " DATE " i TAB < 12 > i " COURSE " > TAB < 30 > " SCORE ■ J 

370 IF N-0 THEN 410 

380 FOR K = 1TO N 

390 PRINTT"AB< (K--1 )xl 0+36) ?H*<K) > 

400 NEXT K 

410 PRINT 

420 PRINT" " } TAB< 10 > ', " " ? TABOO ) ? ' 

430 IF N~0 THEN 470 
440 FOR K=lTO N 

450 PRI'NTTAB< (K~l >*1 0+36) ? ° " i 

460 NEXT K 

470 PRINT 

480 IF A*="N" THEN 720 

490 R'EM HOKJiOKXOKXOSCJtOKiiOK* 

50 REM so*** PRINT OF ALL ITEMS xo*x 

510 FOR I - 1 TO M 

520 READ D$ 

530 IF £>$=•• "END" THEN 670 

540 READ C$fS 

550 IF N=0 THEN 590 

560 FOR K =1 TO N 

570 READ S*<K) 

580 NEXT K 

590 PRI'NTD*JTAB(10) JC$?TAB<30) 5S5 

600 IF N=0 THEN 640 

610 FOR K=l TO N 

620 PRINTTAB< <K-1 )*10+36) ?S$<K) t 

630 NEXT K 

640 PRINT' 

650 NEXT I 

660 REM JK3KJK* 

670 REM *** PROGRAM TERMINATION POINT x** 

680 PRINT 

690 PRINT 

700 STOP 

710 REM xoksok* 

720 REM sokx PRINT SELECTED ITEMS xx*x 

730 FOR 1=1 TO M 

740 READ D$ 

750 IF D*="END" THEN 670 

760 READ C*i- S 

770 FOR K = 1 TO N 

780 IF N=0 THEN 80 

790 READ S*(K) 

BOO IF K1O0 THEN 830 
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810 X3*=C* 

B20 GOTO 850 

830 IF KOK1 THEN £'50 

B^O X3*=S*<K) 

850 NEXT K 

860 IF X*OX3* THEN 930 

87 PRINTD* 5 TAB ( 1 ) J C* f TAB ( 3 ) i S f 

880 IF N=0 THEN 920 

890 FOR J- 1 TO N 

900 PRINTTAB< ( J-l )»10-f-36) ;S*< J) f 

910 NEXT J 

920 PRINT 

930 NEXT I 

910 GOTO 670 

950 REM *<*:« 

960 REM *** DATA FOR INITIALIZATION *** 

970 REM xokik ENTER NUMBER OF DIARY ITEMS FOLLOWED BY THEIR HEADINGS 

980 DATA 2 , WIND? TEMP 

990 REM kxmokx* 

1000 DATA JUL 1, COURSE 2 r 77 , HI ? HI 

1010 DATA JUL 3 > COURSE 1 > 79 „ 1.0 yl.0 

1020 DATA JUL 6»C0URSE 3»78»MED»MED 

1030 DATA JUL 8>C0URSE 1f66 ? LC)vL0 

10^0 DATA END 



RUN 

SHALL I PRINT ALL OF THE ITEMS < Y OR N )? 

? Y 



DATE 



COURSE 



SCORE 


WIND 


TEMI 


77 


HI 


HI 


79 


LO 


LO 


78 


MED 


MED 


66 


LO 


LO 



JUL 1 
JUL 3 
JUL 6 
JUL 8 



COURSE 2 
COURSE 1 
COURSE 3 
COURSE 1 



BREAK IN 700 



RUN 



SHALL I PRINT ALL OF THE ITEMS ( Y OR N )? 

? N 

SHALL WE SELECT BASED UPON COURSE (Or OR OTHER (0) 

? 

ENTER THE ITEM HEADING TO SEARCH FOR 

? WIND 

ENTER THE VALUE OF WIND TO PRINT 

? LO 
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DATE 



COURSE 



SCORE WIND 



TEMP 



JUL 3 
JUL 8 



COURSE 1 
COURSE 1 



79 
66 



L(3 

LO 



LO 
LO 



BREAK IN 700 



MAJOR SYMBOL TABLE - GOLF 



I NAME 



DESCRIPTION 



COUNT INDICATOR 

MAXIMUM NUMBER OF DATA READS 

SUPPLEMENTAL ITEM TRANSACTION VALUE 

SUPPLEMENTAL ITEM HEADING NAME 

NUMBER OF SUPPLEMENTAL ITEMS 

TRANSACTION DATE 

TRANSACTION COURSE 

TRANSACTION SCORE 

STANDARD ITEM TO SELECT 

SUPPLEMENTAL HEADING TO SELECT 

VALUE OF ITEM TO SELECT 



I 


Ki 


I 


M 


I 


S*< > . 


I 


H*( ) . 


I 


N 


I 


D* 


I 


C$ 


I 


S 


I 


X2* 


I 


XI* 


I 


X$ 







FUNCTIONS USED 



I NAME 



DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 
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FISHING 

Description 

This program produces a diary for the fisherman. It can interpret and 
print all items that the user wants to record for later analysis. 

Functions of the Program 

The program provides a formatted output of all, or selected, items 
from the data records. Supplemental items can be defined by indicating 
the number of items and their names in the first data record. Supple- 
mental items can then be read and printed in the same way as the 
standard items. 

Instructions for Use 

Prior to running the program, define the supplemental data items that 

you want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

See the sample data. The first record defines supplemental items and 
their titles. Its form is: 

Number of items, Title 1, Title 2, etc. 
Diary items are then recorded in the following form: 

Month, Day, Species, Weight, Length, Lure, Place, 
Supplemental value 1, value 2, etc. 

Output Description 

See example provided. Print options allow all or selected items to be 
printed. 



20 REM FISHERMAN'S DIARY PROGRAM 

30 REM a*** DATA INITIALIZATION sokjk 

40 K1=0 

50 M--10 00 

60 DIM D*<5) 

80 READ N 

<?0 IF N==0 THEN 130 

100 FOR K -1 TO N 

110 READ H*(K) 

120 NEXT K 

130 PRINT "SHALL I PRINT ALL OF THE ITEMS (Y OR N>?" 

l'H) INPUT A* 

150 IF A*= n Y" THEN 130 
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. WE SELECT BASED 1 
SPECIES (3;" 
MONTH CAUGHT <M> 
LOCATION <D" 
OR OTHER (0)?" 


UP ON J" 


THEN 350 
THEN 370 
THEN 390 
: THE ITEM 


HEADING 


TO SEARCH 



160 PRINT "SHALL 
170 PRINT- 
ISO PRINT" 
190 PRINT" 
200 PRINT" 
210 INPUT X2fc 
220 IF X2*="M" 
230 IF X2*-"L" 
240 IF X2<4>=="S" 

250 PRINT "ENTER THE ITEM HEADING TO SEARCH FOR" 
260 INPUT XI* 
270 IF N=0 THEN 330 
280 FOR K=l TO N 
290 IF Xl*OI-l*(K> THEN 310 
30 K1---K 
310 NEXT K 

320 IF Kl<> THEN 40 

330 PRINT "ITEM HEADING NOT FOUND - TRY AGAIN" 
340 GOTO 130 
350 XI *= "MONTH CAUGHT" 
360 GOTO 40 
370 XI *== "LOCATION" 
380 GOTO 400 
39 XI *- " SPECIES " 

400 PRINT "ENTER THE VALUE OF "»X1*»" TO PRINT" 
410 INPUT X* 

420 REM aoKJfOK HEADINGS xxxc* 
430 PRINT' 
440 PRINT 
450 PRINT 

460 PRINT'DATE" 5TAB<B) i " SPECIES " ?TAB ( 1 B ) P "WT" 5TAB<24> ? "LEN" 5 
470 PRINT'TAB < 30 > ? " LURE " f TAB < 33 > J " LOCATION " P 
480 IF N=0 THEN 520 
490 FOR K=l TO N 

50 PRINT'TAB ( < K-l ) *8+4B ) t H$ < IO P 
5.10 NEXT K 
520 PRINT 

530 PRINT" " 5TAB<8) t " " f TABC1B) ? " — " 5 

54 PRINT'TAB ( 24 ) P " " P TAB < 3 ) P " " 5 TAB ( 38 > > " " P 

550 IF N=0 THEN 590 
560 FOR K=l TO N 

570 PRINTTAB< (K-l >*8+48 ) i " " ? 

580 NEXT K 

590 PRINT' 

60 IF A*="N" THEN 340 

A .1.0 REM HOKJfOK*: 

620 REM **** PRINT OF ALL ITEMS Hoc*)* 

630 FOR I = 1TD M 

640 READ M$ 

650 IF M*="END" THEN 790 

660 READ DcF*!>Wtf >L?B*?Ptf 

670 IF N-0 THEN 710 

680 FOR K--1 'TO N 

690 READ Q*(K) 

70 NEXT K 

710 PRINT'M* i O ! TAB< B ) P F* t TAB < 1 8 > i W* P TAB ( 24 ) P L i TAB ( 30 ) ? B$ i TAB < 38 > ? P* P 

720 IF N==0 THEN 760 

730 FOR K == I TO N 

740 PRINT)"AB< CK--i)*8+48> > «* (K) 5 

750 NEXT K 

760 PRINT 

770 NEXT I 

780 REM *»:»: 

790 REM xcxjk PROGRAM TERMINATION POINT x*xx 
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800 

810 

820 

830 

8-40 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

100 

1010 

1020 

1030 

10^0 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

121 

1220 



PRINT 
PRINT' 
STOP 

REM aoKXOKXOK 

REM xox** PRINT SELECTED ITEMS **** 
FOR 1=1 TO M 
READ M* 

IF M*="END" THEN 790 
READ Di-F*jW*fL»B* f P* 
FOR K=l TO N 

IF N=0 THEN 920 
READ 0*00 
IF K1O0 THEN 1010 
IF X2*<>"M" THEN 960 
X3*==M$ 
GOTO 1030 

IF X2*<>"L" THEM 990 
X3*~P* 
GOTO 1030 
X3*~F* 
GOTO 1030 

IF KOK1 THEN 1030 
X3*=Q*<K) 
NEXT K 

IF X40X3* THEN 1110 

PRINTM* i D i TAB ( 8 ) ', F* ? TAB ( 1 8 ) t W* J TAB <2A>i 
IF N=0 THEN 1100 
FOR J=l TO N 

PRINTTAB ( < J-l ) aiS+^S ) i O* < J ) f 
NEXT J 
PRINT 
NEXT I 
GOTO 790 
REM »XC3K«X*: 
REM x** DATA FOR 
REM ENTER NUMBER- 
DATA 2. » WEATHER » TIME 
REM :k)k>k)iok)k>k)iok!k>k>k 

DATA JUN»1»SM BASS > 3-2 » 19, 5* WORM > LAKE XYZr WINDY ? MORNING 
DATA JUN»6»LM BASS > 6-3 » 23 >. WORM > LAKE W » RAIN > EVENING 
DATA JUNj9jSM BASS ,*-&» 21 r LURE X»LAKE ORG , SUNNY p MORNING 
DATA JUN » 23 , SM BASS f 2- r 1 8 r WORM , LAKE X YZ t WINDY , EVENING 
DATA END 



. J TAB < 30 ) 5 Btf f TAB < 38 ) ; P* ', 



INITIALIZATION FOLLOWS **** 

OF DIARY ITEMS FLLOWED BY THEIR 



HEADINGS 



RUN 
SHALL 
? Y 



I PRINT ALL OF THE ITEMS < Y OR N >? 



DATE 


SPECIES 


WT 


LEN 


LURE 


LOCATION 


JUN 1 


SM BASS 


3-2 


19,5 


WORM 


LAKE XYZ 


JUN 6 


LM BASS 


6-3 


23 


WORM 


LAKE W 


JUN 9 


SM BASS 


4-6 


21 


LURE X 


LAKE QQG 


JUN 23 


SM BASS 


2-0 


18 


WORM 


LAKE XYZ 



WEATHER TIME 

WINDY MORNING 

RAIN EVENING 

SUNNY MORNING 

WINDY EVENING 



BREAK IN 820 
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RUN 
SHALL 
? N 
SHALL 



? S 
ENTER 
? SM 



I PRINT ALL OF THE ITEMS < Y OR N )? 

WE SELECT BASED UPON? 
SPECIES <S) 
MONTH CAUGHT <M) 
LOCATION (L) 
OR OTHER (0)? 

THE VALUE OF SPECIES TO PRINT 
BASS 



DATE 



JUN 1 
JUN 9 
JUN 23 



SPECIES 



WT 



SM BASS 
SM BASS 
SM BASS 



3-2 
4-6 
2-0 



LEN 



LURE 



19, 

21 

18 



5 WORM 
LURE X 
WORM 



LOCATION 

LAKE XYZ 
LAKE QGQ 
LAKE XYZ 



WEATHER TIME 

WINDY MORNING 
SUNNY MORNING 
WINDY EVENING 



BREAK IN 820 



MAJOR SYMBOL TABLE - FISHING 
x : 

I NAME . . DESCRIPTION I 

X j 

I Kl .. COUNT INDICATOR I 

I M .. MAXIMUM NUMBER OF DATA READS I 

I Q$< ) .. SUPPLEMENTAL ITEMS TRANSACTION I 

I H*< > .. SUPPLEMENTAL ITEMS HEADING VALUE I 

IN .. NUMBER OF SUPPLEMENTAL ITEMS I 

I M* . . MONTH I 

ID .. DAY IN I 

IF* .. SPECIES I 

I W* .. WEIGHT I 

I L .. LENGTH I 

IB* .. LURE USED I 

IP* .. LOCATION I 

I X2* .. STANDARD ITEM TO SELECT I 

I XI* .. SUPPLEMENTAL HEADING TO SEARCH I 

IX* .. VALUE OF ITEM TO SELECT I 

I j 

FUNCTIONS USED 

! j 

I NAME .. DESCRIPTION I 

X ! 

I TAB .. FORMATS PRINT LINES I 

I DIM ., SINGLE DIMENSION ARRAYS I 

I x 
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PHOTOGRAPHY 

Description 

This program produces a diary for the photographer. It can interpret 
and print all items that the user wants to record for later analysis. 

Functions of the Program 

The program provides a formatted output of all, or selected, items from 
the data records. Supplemental items can be defined by indicating the 
number of items and their names in the first data record. Supplemental 
items can then be read and printed in the same way as the standard items. 

Instructions for Use 

Prior to running the program, define the supplemental data items that 
you want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

See the sample data. The first record defines supplemental items and 

their titles. Its form is: 

Number of items, Title 1, Title 2, etc. 
Diary items are then recorded in the following form: 

Picture number, Subject, Date, Supplemental value 1, value 2, etc. 

Output Description 

See example provided. Print options allow all, or selected, items to be 

printed. 



20 REM PHOTOGRAPHERS DIARY PROGRAM 

30 REM xxokDATA INITIALIZATION *** 

■?0 K1=0 

50 M=1000 

60 DIM Q$<5) 

70 DIM H*(5) 

80 READ N 

90 IF N=0 THEN 130 

100 FOR K=l TO N 

110 READ H*<K> 

120 NEXT K 

130 PRINT "SHALL I PRINT ALL OF THE ITEMS <Y OR N>?" 

HO INPUT A* 

150 IF A*="Y" THEN 370 

160 PRINT "SHALL. WE SELECT BASED UPON PICTURE <P> r SUBJECT (S> , < 

170 PRINT "OR OTHER <0>" 
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180 
190 
200 
210 
220 
230 
240 
250 
260 
270 

2a o 

290 
300 
310 
320 
330 
340 
350 
360 
370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 
480 
490 
500 
510 
520 
530 
540 
550 
560 
570 
580 
590 
600 
610 
620 
630 
640 
650 
660 
670 
630 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 



INPUT X2* 

IF X2*="P" THEN 310 

IF X2*="S" THEN 330 

PRINT "ENTER' THE ITEM HEADING TO SEARCH FOR" 

INPUT XI* 

IF N==0 THEN 290 

FOR K=l TO N 

IF Xl*OHtfCK> THEN 270 

K1=K 
NEXT K 

IF K1O0 THEN 340 

PRINT "ITEM HEADING NOT FOUND - TRY AGAIN" 
GOTO 130 
XI *= "PICTURE #" 
GOTO 340 
XI *- "SUBJECT " 

PRINT "ENTER THE VALUE OF "?X1$J" TO PRINT" 
INPUT X$ 

REM sokhok HEADINGS **** 
PRINT 
PRINT 
PRINT- 
PRINT " PICTURE # " t TAB ( 1 1 > ? " SUBJECT " i TAB ( 22 ) » " DATE " i 
IF N=0 THEN 450 
FOR K=i TO N 

PRINTTAB< <K-1)«8K32) fH*<IO i 
NEXT K 
PRINT- 
PRINT " " i TAB ( 1 1 ) f " " > TAB < 22 ) i " " i 

IF N=0 THEN 510 
FOR K=l TO N 

PRINTTABC <K-1 )w8+32) } " — ■-" t 

NEXT K 

PRINT 

IF A*="N" THEN 760 

REM JKXOKMOKXOK 

REM ***:* PRINT OF ALL ITEMS ***:>!.' 
FOR I == 1 TO M 

READ P$ 

IF P*-»END" THEN 710 

READ S*»D$ 

IF N=0 THEN 630 

FOR K ==1 TO N 
READ CM.OO 

NEXT K 
PRINTP*? TAB < 1 1 ■> % S$ f TAB ( 22 > f D* > 

IF N=0 THEN 680 

FOR l< = 1 TO N 

PRINTTABC (K-l)>K8+32) ;Q*(K> » 

NEXT K 

PRINT- 
NEXT I 

REM JKMCXOKJK 

REM so*** PROGRAM TERMINATION POINT *** 

PRINT 

PRINT 

STOP 

REM xok*:* 

REM soKaoK PRINT SELECTION ITEMS ***** 

for :r:= i to m 

READ P* 
IF P*-"END" THEN 710 
READ S*»D* 
FOR K=l TO N 
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820 

830 

840 

850 

86 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

.1.020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 



IF N==0 THEN 640 

READ Q*<K) 

IF K1O0 THEN 900 

IF X2*<>"P" THEN 880 

X3*=P* 

GOTO 920 

X3*=S* 

GOTO 920 

IF KOK1 THEN 920 

X3*=G*(K> 

NEXT K 

IF X*OX3* THEN 100 

PRINTP*»TAEi< 1 1 > ?S$i TABC22) f D*» 

IF N==0 THEN 990 

FOR J=1TD N 

PRINTTAB ( < 3-1 ) *B+32 ) i Q* ( J > i 

NEXT J 

PRINT 
NEXT I 
GOTO 710 

REM XJXJKKOOOKSOK 

REN **« DATA FOR 
REM ENTER NUMBER 
DATA 4 9 EXP 9 TIME ? FILM , PAPER 
REM jkxokhokjk 

DATA 1 , HORSES r JUL 1 r FB , 1 732 r TRI-X r MATT- 
DATA 1 1 9 DOGS > JUL 2 !■ Fl 1 >• 1/50 v TRI-X >■ S--MATT 
DATA 1 02 y CHICKENS p JUL 3yF22el/125rTYPE SyTYPE 
DATA 1 03 9 HORSES y JUL 10 yF22yl/125yTYPE Si- MATT 
DATA END 



INITIALIZATION FLLOWS ***: 
OF DIARY ITEM FOLLOWED BY 



ri-IEIR HEADING 



RUN 

SHALL I PRINT 

? Y 



ALL OF THE ITEMS ( Y OR N )' 



PICTURE 


* SUBJECT 


DATE 


EXP 


TIME 


FILM 


PAPER 


100 


HORSES 


JUL 1 


F8 


1/32 


TRI-X 


MATT 


101 


DOGS 


JUL 2 


FU 


1/500 


TRI-X 


S-MATT 


102 


CHICKENS 


JUL 3 


F22 


1/125 


TYPE S 


TYPE 1 


103 


HORSES 


JUL 10 


F22 


1/125 


TYPE S 


MATT 



BREAK IN 740 



RUN 

SHALL I PRINT ALL OF THE ITEMS < Y OR N )? 

? N 

SHALL WE SELECT BASED UPON PICTURE # (P)» SUBJECT <S)?0R OTHER (0) 

? O 

ENTER THE ITEM HEADING TO SEARCH FOR 

'? FILM 

ENTER THE VALUE OF FILM TO PRINT 

? TRI-X 



312 BASIC Computer Programs for the Home 



PICTURED # SUBJECT 


DATE 


EXP 


TIME 


FILM 


PAPER 


100 HORSES 


JUL 1 


F8 


1/32 


TRI-X 


MATT 


101 DOGS 


JUL 2 


Fll 


1/500 


TRI-X 


S-MATT 



BREAK IN 740 



MAJOR SYMBOL TABLE - PHOTOGRAPHY 
.. DESCRIPTION 



I NAME 

I 

I Kl 
M 

«*< 
H*< 
P* 
S* 
D* 
X2* 
XI* 
X* 
N 



COUNT INDICATOR 

MAXIMUM NUMBER OF DATA READS 

SUPPLEMENTAL ITEMS - VALUE IN 

SUPPLEMENTAL ITEMS - HEADING VALUES 

PICTURE NAME/NUMBER 

SUBJECT 

DATE 

STANDARD ITEM TO SEARCH 

SUPPLEMENTAL ITEM TO SEARCH 

VALUE OF ITEM TO SELECT 

NUMBER OF SUPPLEMENTAL ITEMS 



FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 
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GREENHOUSE 

Description 

This program produces a diary for the horticulturist's greenhouse. It 
can interpret and print all items that the user wants to record for later 
analysis. 

Functions of the Program 

The program provides a formatted output of all, or selected, data rec- 
ords. Supplemental items can be defined by indicating the number of 
items, and their names, in the first data record. Supplemental items can 
then be read and printed in the same way as standard items. 

Instructions for Use 

Prior to running the program, define the supplemental items that you 
want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

See the sample data. The first record defines supplemental items and 
their titles. Its form is: 

Number of items, Title 1, Title 2, etc. 
Diary items are then recorded in the following form: 

Plant name, Container number, Date, Supplemental value 1, etc. 

Output Description 

See example provided. Print options allow all, or selected, records to be 
printed. 



20 REM HORTICULTURIST'S DIARY PROGRAM 

30 REM xtaoiiDATA INITIALIZATION xokw 

40 K1=0 

50 M=10 00 

60 DIM d*<5) 

70 DIM H*(5) 

80 READ N 

90 IF N=0 THEN .1.30 

100 FOR K=l TO N 

110 READ H$00 

120 NEXT K 

130 PRINT "SHALL. I PRINT ALL OF THE ITEMS <Y DR N>?" 

1-fl) INPUT A$ 

150 IF A*="Y" THEN 370 

160 PRINT-SHALL WE SELECT BASED UPON PLANT NAME CP;» NUMBER tN> , " ; 
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170 PRINT "OR OTHER <Q>" 

.1.80 INPUT X2* 

.1.90 IF X2$=="P" THEN 310 

20 IF X2$="N" THEN 330 

210 PRINT "ENTER THE ITEM HEADING TO SEARCH FOR 1 

220 INPUT XI* 

230 IF N=0 THEN 290 

240 FOR K=l TO N 

250 IF Xl$OH$(K) THEN 270 

260 K1=K 

270 NEXT K 

280 IF K1O0 THEN 340 

290 PRINT "ITEM HEADING NOT FOUND - TRY AGAIN" 

300 GOTO 130 

310 Xl!l>= "PLANT NAME" 

320 GOTO 340 

330 XI *=" NUMBER" 

340 PRINT "ENTER THE VALUE OF °iXl$i" TO PRINT" 

350 INPUT X* 

360 REM «**ok HEADINGS) xokxc* 

370 PRINT' 

380 PRINT 

390 PRINT 

400 PRINT " PLANT' " i TAB l 1 l>f NBR " i TAB (16)?" DATE " J 

410 IF N=0 THEN 450 

420 FOR K=i TO N 

43 PRINTT AB ( < K- 1 > x 1 +32 ) ; H* ( K ) J 

440 NEXT K 

450 PRINT 

460 PRINT"— " n'ABCtl ) ', " » } TAB( 16) t" 

470 IF N==0 THEN 510 
480 FOR K=l TO N 

490 PRINT'TAB ( < K- 1 ) x 1 +32 > 5 " » } 

500 NEXT K 

510 PRINT 

520 IF A*="N" THEN 760 

530 REM xxokxokxok 

540 REM km PRINT OF ALL ITEMS **x* 

550 FOR I = 1 TO M 

560 READ P* 

570 IF P!P="END" THEN 710 

580 READ N*»D$ 

590 IF N=0 THEN 630 

60 FOR K =1 TO N 

610 READ 0*00 

620 NEXT K 

630 PRINTP* 5 XAB( 1 1 ) > N* ? TAB < 16 >•♦£*■» 

640 IF N=0 THEN 680 

650 FOR K == 1 TO N 

660 PRINTTAB< CK-1 >wl0+32) »Q*<K) ? 

670 NEXT K 

680 PRINT 

690 NEXT I 

70 REM xjkxokx 

710 REM xokxx PROGRAM TERMINATION POINT **x 

720 PRINT 

730 PRINT 

740 STOP 

750 REM xxxx 

760 REM Hoc** PRINT SELECTION ITEMS xxxx* 

770 FOR 1= 1 TO M 

780 READ P$ 

790 IF P$="END" THEN 710 

800 READ N*?D$ 
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810 

B20 

830 

B-IO 

850 

860 

870 

880 

890 

900 

910 

920 

930 

9^0 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

10'tO 

1050 

1060 

1070 

1080 

.1090 

1100 

1110 



FOR K=l TO N 
IF N=0 THEN 8-90 
READ Q*(K) 
IF K1O0 THEN 900 



THEN 88 C 



IF X2$<>"P 

X3*=P* 

GOTO 920 

X3*=N* 

GOTO 920 

IF KOK1 THEN 920 

X3*=Q*(K) 

NEXT K 

IF X*OX3* THEN 100C 

PRINTP* * TAB < 1 1 ) J N* H AB ( 1 6 ) f D* J 

IF N==0 THEN 990 

FOR J=1TD N 

PRINTTAB< <J-l)*10+32) ?«*< J) ? 

NEXT J 

PRINT 
NEXT I 
GOTO 710 

REM XilOKJIOKitOKXOK 

REM *;k* DATA FOR INITIALIZATION FLLDWS «** 
REM ENTER NUMBER OF DIARY ITEM FOLLOWED BY 
DATA 3» LIGHT? WATER , SCIL 
REM *;k>kx)«>k 

DATA LETTUCE* In APR 15»BR1'GHT>DAILY»SANDY 
DATA LETTUCE > 2 s- APR 1 5 v BRIGHT t DAILY » LOAM 
DATA CABBAGEi.3i.APR 16 rSHADYrWEEKLYy LOAM 
DATA LETTUCE > <\> APR 1? r SHADY f WEEKLY » SANDY 
DATA END 



THEIR HEADING 



RUN 
SHALL 
? Y 



I PRINT ALL OF THE ITEMS < Y OR N )? 



PLANT 



NBR 



DATE 



LIGHT 



WATER- 



SOIL 



LETTUCE 
LETTUCE 
CABBAGE 
LETTUCE 



1 


APR 


15 


BRIGHT 


DAILY 


SANDY 


1 


APR 


15 


BRIGHT 


DAILY 


LOAM 


3 


APR 


16 


SHADY 


WEEKLY 


LOAM 


A 


APR 


17 


SHADY 


WEEKLY 


SANDY 



BREAK IN 740 



RUN 



SHALL I PRINT ALL OF THE ] TEMS ( Y OR N )? 

? N 

SHALL WE SELECT BASED UPON PLANT NAME (P)» NUMBER (N>..OR OTHER <0> 

? O 

ENTER THE ITEM HEADING TO SEARCH FOR 

? SOIL 

ENTER THE UALUE OF SOIL TO PRINT 

? LOAM 
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PLANT 



NBR 



BATE 



LIGHT 



WATER 



SOIL 



LETTUCE 
CABBAGE 



APR 15 
APR 16 



BRIGHT 
SHADY 



DAILY 
WEEKLY 



LOAM 
LOAM 



BREAK IN 740 



MAJOR SYMBOL TABLE 



GREENHOUSE 



I NAME 



.. DESCRIPTION 



COUNT INDICATOR 

MAXIMUM NUMBER OF DATA READS 

SUPPLEMENTAL ITEMS - VALUE IN 

SUPPLEMENTAL ITEMS - HEADING VALUES 

PLANT NAME 

PLANT/CONTAINER NUMBER 

DATE PLANTED 

STANDARD ITEM TO SEARCH 

SUPPLEMENTAL ITEM TO SEARCH 

VALUE OF ITEM TO SELECT 

NUMBER OF SUPPLEMENTAL ITEMS 



I 


Kl 


I 


M 


I 


0*< ) . 


I 


H$< ) . 


I 


P* 


I 


N$ 


I 


D$ 


I 


X2* 


I 


XI* 


I 


X* 


I 


N 







FUNCTIONS USED 



I 

I NAME 



.. DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 
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CB RADIO 

Description 

This program produces a diary (log) for the CB operator. It can interpret 
and print all items that the user wants to record in the log. 

Functions of the Program 

The program provides a formatted output of all, or selected, data rec- 
ords. Supplemental items can be defined by indicating the number of 
items, and their names, in the first data record. Supplemental items can 
then be read and printed in the same way as standard items. 

Instructions for Use 

Prior to running the program, define the supplemental items that you 

want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

See example data. The first record defines supplemental items and their 

titles. Its form is: 

Number of items, Title 1, Title 2, etc. 
Diary (log) items are then entered in the following form: 

Handle, Call letters, Channel monitored, Supplemental value 1, etc. 

Output Description 

See example output. Print options allow all, or selected, records to be 
printed. 



20 REM CB RADIO OPERATOR'S DIARY PROGRAM 

30 REM HfitoKDATA INITIALIZATION *** 

10 K1=0 

SO M=10 

60 DIM Q*<5) 

70 DIM H*<5) 

80 READ N 

90 IF' N=0 THEN 130 

100 FOR K=l TO N 

110 READ H*OQ 

120 NEXT K 

130 PRINT "SHALL I PRINT ALL OF THE ITEMS <Y OR N>?" 

110 INPUT AiP 

150 IF A*="Y" THEN 130 

160 PRINT "SHALL WE SELECT BASED UPON J" 

170 PRINT" HANDLE <H>" 
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CAU. 


. LET1 


■'ERS 


<L>' 






CHANNEL CO- 








OP: OTHER 


<0)° 


1 






THEN 


350 










THEN 


370 










THEN 


390 










: THE 


ITEM 


HEADING 


TO 


SEARCH 



ISO PRINT" 

190 PRINT" 

200 PRINT" 

2.1.0 INPUT X2$ 

220 IF X2*="l-I" 

230 IF X"*="L" 

240 IF X2*="C" 

250 PRINT "ENTER THE ITEM HEADING TO SEARCH FOR" 

260 INPUT' 71* 

270 IF N=0 THEN 330 

280 FOR K=:i TO N 

290 IF X1*OH$<IO THEN 310 

300 K1=K 

310 NEXT K 

320 IF K1O0 THEN 400 

330 PRINT "ITEM HEADING NOT FOUND - TRY AGAIN" 

340 GOTO 130 

350 XI $=" HANDLE" 

360 GOTO -40 

370 X1*="CALL LETTERS" 

380 GOTO 40 

390 XI *= "CHANNEL" 

400 PRINT"ENTER THE " J X :L * 5 " TO PRINT" 

410 INPUT XKi 

420 REM aoKHOK HEADINGS xokjk* 

430 PRINT 

440 PRINT 

450 PRINT 

46 PRINT " HANDLE " 5 TAB < 21 > 5 " LETTERS " * TAB < 31 ) ', "CH " J 

470 IF N==0 THEN 510 

480 FOR K-l TO N 

490 PRINTTABC <K-1 )*10+34) 5H*<K> > 

50 NEXT K 

510 PRINT 

52 PRINT " — - " 5 TAB < 21 J ? " " J TAB < 3 1 ) ? " — "i 

530 IF N=0 THEN 570 
540 FOR K=l TO N 

550 PRINTTABC (K-l >*10+34> ', " " f 

560 NEXT K 

570 PRINT 

580 IF A*=°N" THEN 820 

590 REM XOfOKXCHOKXOK 

600 REM **** PRINT OF ALL ITEMS xxxxx. 

610 FOR 1=1 TO M 

620 READ HI* 

630 IF H.t$=:"END" THEN 770 

640 READ L*»C* 

650 IF N=0 THEN 690 

660 FOR K=l TO N 

670 READ Q*(K> 

680 NEXT K 

690 PRINTH1 * > TAB ( 21 > i L* ? TAB ( 31 > > C* i 

700 IF N=0 THEN 740 

710 FOR K=l TO N 

720 PRINTTAB i < K- 1 ) *1 0+34 ) J Q* ( K > i 

730 NEXT K 

740 PRINT 

750 NEXT I 

760 REM Hon***: 

770 REM *x* PROGRAM TERMINATION POINT J**** 

780 PRINT 

790 PRINT 

800 STOP 

810 REM XOKJKXXXOK 
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820 REM ***PRINT SELECTED ITEMS **** 

830 FOR 1=1 TO M 

8-90 READ HI* 

850 IF H1*="END" THEN 770 

860 READ L*»C* 

870 FOR K=l TO N 

880 IF N=0 THEN 990 

890 READ K*(K> 

90 IF K1O0 THEN 990 

910 IF X2*<>"L" THEM 940 

920 X3*=L* 

930 GOTO .1010 

940 IF X2*<>"H" THEM 970 

950 X3*=H* 

960 GOTO 1010 

970 X3*=C* 

980 GOTO 1010 

990 IF KOK1 THEN 1010 

100 X3*==Q$(K> 

1010 NEXT K 

1020 IF X*OX3* THEN 1090 

1030 PRINTHl*»TAB<21)JL*fTABC31) ?C*J 

1040 IFN=-0 THEN 1080 

1050 FOR J=l TO N 

1060 PRINT7'AB< ( J-l >*l0+-34) tQ*<J) ; 

1070 NEXT J 

1080 PRINT 

1090 NEXT I 

1100 GOTO 770 

1110 REM >ook*>kk: 

1120 REM *kx< DATA FOR INITIALIZATION FOLLOWS *x* 

1130 REM ENTER' NUMBER OF DIARY ITEMS FOLLOWED BY THEIR HEADINGS 

1140 DATA 2»DATE*TE.'LE 

1150 REM at**** 

1160 DATA GRANNY GOOSEf KTX9999f5v JUN 1 5 » 633-7777 

1170 DATA GALLOPING HORSEMANfKTXlll.il * 7, JUL 17*633-6666 

1180 DATA FISHBAITfKA AZ13.11 , 40 y AUG 17*123~4567 

1190 DATA MONKEY WRENCH? KABC1234 r 13? AUG 15?633~1098 

1200 DATA END 



RUN 

SHALL I PRINT ALL OF THE ITEMS ( Y OR N )? 

? Y 



HANDLE LETTERS CH DATE TELE 

GRANNY GOOSE KTX9999 5 JUN 15 633-7777 

GALLOPING HORSEMAN KTX11111 7 JUL 17 633-6666 

FISHBAIT KAAZ1111 40 AUG 17 123-4567 

MONKEY WRENCH KABC1234 13 AUG 15 633-1098 



BREAK IN 800 
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RUN 

SHALL I PRINT ALL OF THE ITEMS < Y OR N )? 

? N 

SHALL WE SELECT BASED UPON: 

HANDLE (H) 

CALL LETTERS <L> 

CHANNEL <C> 

OR OTHER (0>? 
? C 

ENTER THE CHANNEL TO PRINT 
? 40 



HANDLE 
FISHBAIT 



LETTERS CH DATE TELE 
KAAZ1111 40 AUG 17 123-4567 



BREAK IN 800 



MAJOR SYMBOL TABLE 



CB RADIO 



I NAME 



DESCRIPTION 



COUNT INDICATOR 

MAXIMUM NUMBER OF DATA READS 

SUPPLEMENTAL ITEMS - VALUE IN 

SUPPLEMENTAL ITEMS - HEADING VALUES 

HANDLE 

CALL LETTERS 

CHANNEL 

STANDARD ITEM TO SEARCH 

SUPPLEMENTAL ITEM TO SEARCH 

VALUE OF ITEM TO SELECT 

NUMBER OF SUPPLEMENTAL ITEMS 



I 


Kl 


I 


M 


I 


0$< ) . 


I 


H*< ) . 


I 


Hl$ 


I 


L* 


I 


C* 


I 


X2$ 


I 


XI* 


I 


X* 


I 


N 







FUNCTIONS USED 



I NAME 



DESCRIPTION 



I TAB 
I DIM 

I 



FORMATS PRINT LINES 
SINGLE DIMENSION ARRAYS 
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BOWLING 

Description 

This program produces a diary for the bowling enthusiast. It can inter- 
pret and print all items that the user wants to record for later analysis. 

Functions of the Program 

The program provides a formatted output of all, or selected, data rec- 
ords. Supplemental items can be defined by indicating the number of 
items, and their names, in the first data record. Supplemental items can 
then be read and printed in the same way as standard items. 

Instructions for Use 

Prior to running the program, define the supplemental items that you 
want to record. Enter the diary items as they occur. 

Data Entry 

All data is entered by means of DATA statements. 

Data Formats 

The first record defines supplemental items and their titles. See the 
sample data. Its form is: 

Number of items, Title 1, Title 2, etc. 
Diary items are then entered in the following form: 

Date, Location, Number of games, Score 1, Score 2, . . . , 
Supplemental items 

Output Description 

See example provided. Print options allow all, or selected, records to be 
printed. 



20 REM BOWLER'S DIARY PROGRAM 

30 REM xcsokDATA INITIALIZATION *** 

40 K1=0 

50 M=1000 

60 DIM S'4U5> 

70 DIM H*<5) 

80 READ N 

90 IF N=0 THEN 130 

.10 FOR K=l TO N 

HO READ H*<K) 

120 NEXT K 

,1.30 PRINT "SHALL I PRINT ALL OF THE ITEMS <Y OR N>?" 

1^0 INPUT A* 

.1.50 IF A*="Y" THEN 330 

160 PRINT-SHALL I SELECT BASED UPON LANES (L> , OR OTHER <0>-? ,! 
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.1.70 INPUT X2* 

180 IF X2*="L" THEN 290 

190 PRINT "ENTER' THE ITEM HEADING TO SEARCH FOR" 

200 INPUT XI $ 

2.1.0 IF N=0 THEN 270 

220 FOR K=l TO N 

230 IF Xl*OH*CK> THEN 250 

240 K1=K 

250 NEXT K 

260 IF K1O0 THEN 300 

270 PRINT "ITEM HEADING NOT FOUND - TRY AGAIN" 

280 GOTO 130 

290 Xl*=" LANES" 

300 PRINT "ENTER THE VALUE OF "fXltf?" TO PRINT" 

310 INPUT X* 

320 REM ***:* HEADINGS x*** 

330 PRINT 

340 PRINT 

350 PRINT 

36 PRINT " DATE " ? TAB < 9 ) f " LANES " t TAB C 26 ) ? " GAMES " i TAB C 32 ) i » RESULTS " } 

370 PRINT"/AVG" J 

380 IF N=0 THEN 420 

390 FOR K=:t TO N 

400 PRINTTABC CK--1 )x<10+34> J "■/" JH*(K> 

410 NEXT K 

420 PRINT 

43 PRINT " — " ? TAB < 9 ) > " " i TAB ( 26 ) i " - — " i TAB ( 32 ) ? " " i 

44 PRINTTAB ( 39 ) i " " > 

450 IF N==0 THEN 490 

460 FOR K=l TO N 

470 PRINTTABC <K-1 >*10+34> > " " % 

400 NEXT K 

490 PRINT 

500 IF A*="N" THEiN 840 

510 REM xokxokxoksk 

520 REM x*** PRINT FDR ALL ITEMS xxokkxc 

530 FOR 1=1 TO M 

540 READ m> 

550 IF D*="END" THEN 790 

560 READ Lil>s>G 

570 FOR K=1T0 G 

580 READ RCIO 

590 R ( G+ 1 > =R C G+ 1 ) +R ( K > 

600 NEXT K 

610 R<G+l)=l'NT<<R<G+].)/G) + «5) 

620 IF N==0 THEN 660 

630 FOR K=l TO N 

640 READ S*CIO 

650 NEXT K 

660 PRINTDi|iJTAB<9) ?L*?TABC26 > iGi 

670 FOR K=l TO G 

680 PRINTTABC <K--1 )*5+31 ) f RCIO ? 

690 NEXT K 

700 PRINTTABC <K-1 >*5+31 ) ? "/" ?RCG+1 > > 

710 RCG+:D~0 

720 IF N=^0 THEN 760 

730 FOR K=l TO N 

740 PRINTTABC (K-l )*10+3B+(G*5) ) ? V"S$(K> t 

750 NEXT K 

760 PRINT' 

770 NEXT I 

780 REM sokhokxc 

790 REM xokx PROGRAM TERMINATION POINT x*x 

SO (J PRINT 
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810 

820 

830 

840 

850 

860 

870 

880 

890 

900 

910 

920 

930 

940 

950 

960 

970 

980 

990 

1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1 1 1 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 

1200 

1210 

1220 

1230 

1240 

1250 

1260 



PRINT 
STOP 

REM aoujk'jx 

REM **** PRINT SELECTED ITEMS xokx* 
FOR 1=1 TO M 
R(G+i)=0 
READ D* 

IF D*="END" THEN 790 
READ UiyG 
FOR J=l TO G 
READ RCJ> 

R<G+1)=RCG+1)+R<J) 
NEXT J 

R<G+l>=INT<<R<G+i>/G>+.5) 
FOR K=l TO N 

IF N=0 THEN 980 
READ S«(K) 
IF K1O0 THEN 10:10 
X3*=L* 
GOTO 1030 
NEXT K 

X3*=S$CK) 
NEXT K 

IF X*OX3* THEN 1150 
PRINTD* f T AB < 9 > i L* t TAB ( 26 ) i G f 
FOR J= 1TO G 

PRINTTAB ( < J-1 ) *5+Sl ) i R ( J > > 
NEXT J 
PRIN TT AB ( < G-- 1 ) *5+3 1 ) ? " / ■ t R ( G-«- 1 > i 
IF N=0 THEN 1140 
FDR J=l TO H 

PRINTTAB ( < J-l )xao+38+<G*5> > "> V" JS*(J) > 
NEXT J 
PRINT 
NEXT I 
GOTO 790 

REM aosoKaoKaoiWKMOiOKSK 

REM *** DATA FOR INITIALIZATION **** 

REM ft. ENTER NUMBER OF DIARY ITEMS FOLLOWED BY THEIR HEADINGS 
DATA li-BALLNBR 

REM JKXOXXOiOIOOOOJOfCiK 

DATA JUN 1 9 HIGHWAY BOWL#l r3» 10 Of. 101 y 134 fl 
B, UPTOWN ALLEYS* 3 > 1 05s. ISO , 123 j>3 
15>. HIGHWAY BOWL#l ,Z> 120 , 131 »3 
22 , UPTOWN ALLEYS * 3 1 121 p 131 1 142 1 1 



DATA 
DATA 
DATA 
DATA 



JUN 
JUN 
JUN 
END 



RUN 

SHALL I 
? Y 



PRINT ALL OF THE ITEMS < Y OR N )? 



DATE 



LANES 



GAMES RESULTS/AVG/BALL NBR 



JUN 


1 


HIGHWAY BOWL#l 


3 


100 


101 


134 / 


112 


/l 


JUN 


8 


UPTOWN ALLEYS 


3 


105 


150 


123 / 


126 


/3 


JUN 


15 


HIGHWAY BOWL#l 


2 


120 


131 


/ 187 


/3 




JUN 


22 


UPTOWN ALLEYS 


3 


121 


131 


142 / 


131 


/l 



BREAK IN 820 
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RUN 

SHALL I PRINT ALL OF THE ITEMS ( Y OR N )? 

? N 

SHALL I SELECT BASED UPON LANES <L>» OR OTHER <0)? 

? L 

ENTER THE VALUE OF LANES TO PRINT 

? HIGHWAY BOWL*l 



DATE 



LANES 



GAMES RESULTS/AVG/BALL NBR 



JUN 1 
JUN 15 



HIGHWAY BOWL*l 
HIGHWAY BOWL#l 



100 
120 



101 134 / 112 
131 / 187 /3 



/l 



BREAK' IN 820 



MAJOR SYMBOL TABLE 



BOWLING 



I NAME 



DESCRIPTION 



COUNT INDICATOR 

MAXIMUM NUMBER OF DATA READS 

RESULTS (SCORE) ARRAY 

SUPPLEMENTAL ITEMS -VALUES 

SUPPLEMENTAL ITEMS - HEADING NAMES 

STANDARD ITEM TO SEARCH 

SUPPLEMENTAL ITEM TO SEARCH 

VALUE OF ITEM TO SELECT 

DATE 

LANES 

NUMBER OF GAMES 



I 


Kl 


I 


M 


I 


R< ) . 


I 


S*< ) . 


I 


H*( ) . 


I 


X2* 


I 


XI* 


I 


X* 


I 


D$ 


I 


L* 


I 


G 


T- 





FUNCTIONS USED 



I NAME 



.. DESCRIPTION 



I TAB 
I INT 
I DIM 

I 



.. FORMATS PRINT LINES 

.. CONVERTS NUMBER TO INTEGER 

.. SINGLE DIMENSION ARRAY 
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GENERAL PURPOSE DIARY 

Description 

This program provides a general purpose diary that can be used for re- 
cording many different activities. It can interpret and print all items 
that the user wants to record. 

Functions of the Program 

The program provides a formatted output of all, or selected, data rec- 
ords. All items contained in the data records are defined by indicating 
the number of items and their names in the first data record. These 
items can then be read and printed as if they had originally been pro- 
grammed for. 

Instructions for Use 

Determine the items to be recorded in the records. Enter the diary 
items as thev occur. 

Data Entry 

All DATA is entered by means of DATA statements. 

Data Formats 

See the sample data. The first record defines the number of items and 
their titles. Its form is: 

Number of items, Title 1, Title 2, etc. 
Diary items are then entered using the following form: 

Value 1, Value 2, etc. 

Output Description 

See example provided. Print options allow all, or selected, records to be 
printed. 



20 REM GENERAL PURPOSE DIARY 

30 REM **x DATA INITIALIZATION 

-=*0 M=10 00 

50 DIM S*<10> 

6(1 DIM I-MM.1Q) 

70 READ N 

80 IF N=0 THEN 510 

90 FDR K=.t TO N 

.100 READ H*(K) 

HO NEXT K 

120 PRINT "SHALL. I PRINT ALL THE ITEMS (Y OR N)?" 

130 INPUT A* 

i-90 IF A*="Y" THEN 260 
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150 PRINT "ENTER THE ITEM TO SEARCH" 

160 INPUT XI* 

170 FOR K=l TO N 

ISO IF Xl$OH*(K) THEN 200 

190 K1=K 

200 NEXT K 

210 IF K1O0 THEN 240 

220 PRINT "ITEM HEADING NOT FOUND - TRY AGAIN" 

230 GOTO .1.20 

240 PRINT "ENTER THE VALUE OF "?X1$?" TO PRINT" 

250 INPUT' X* 

260 PRINT 

270 PRINT 

280 PRINT 

290 FOR K=l TO N 

800 PRINTTABf (K-l >*10+1 ) ?H*(K> } 

310 NEXT K 

320 PRINT 

330 FOR K =1 TO N 

340 PRINTTABC (K-l )*10+1 ) } " " ? 

350 NEXT K 

360 PRINT 

370 IF A*="N" THEN 560 

380 R'EM ***** 

390 REM ***** PRINT FOR ALL ITEMS **** 

400 FOR I == 1 TO M 

410 FOR K----1 TO N 

420 READ S*(K) 

430 IF S*(i)= a END" THEN 510 

4-40 NEXT K 

450 FOR K=l TO N 

460 PRINTTAB< (K-l >*10Ki. ) 5S*(IO 5 

470 NEXT K 

480 PRINT' 

490 NEXT I 

500 REM ***** 

510 REM **** PROGRAM TERMINATION POINT **** 

520 PRINT 

530 PRINT 

540 STOP 

550 REM *** 

560 REM ******* PRINT SELECTED ITEMS ***** 

570 FOR 1=1 TO M 

580 FOR K-l TO N 

590 READ S*(K) 

600 IF S* (!>=-•" END" THEN 510 

610 IF KOK.I. THEN 670 

620 IF X*OS*(K> THEN 670 

630 FOR J-l TO N 

640 PRINTTAB( < J--1 >*10+1 ) f S*< J) ? 

650 NEXT J 

660 PRINT 

670 NEXT K 

680 NEXT I 

690 GOTO 510 

700 REM ******* 

710 REM ******** DATA FOR INITIALIZATION ***** 

720 REM ENTER NUMBER OF DIARY ITEMS FOLLOWED BY THEIR HEADINGS 

730 DATA 4rDATE»CaURSEi.SC0REvWTND 

740 DATA JUL li- COURSE 2 > 77 y NONE 

750 DATA JUL 3, COURSE l»80rMED 

760 DATA JUL 6 1- COURSE 2jS5?MED 

770 DATA JUL 8 t COURSE i»82»L0W 

780 DATA END 
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RUN 

SHALL I PRINT ALL OF THE ITEMS < Y OR N )? 

? Y 



WIND 

NONE 
MED 
HIGH 
LOW 



DATE 




COURSE 




SCi 


JUL 
JUL 
JUL 
JUL 


1 
3 
6 
8 


COURSE 
COURSE 
COURSE 
COURSE 


2 
1 
^> 

1 


77 
80 
85 
82 



BREAK IN 540 



RUN 

SHALL I PRINT ALL OF THE ITEMS ( Y OR N >? 

? N 

ENTER THE ITEM TO SEARCH 

? COURSE 

ENTER THE VALUE OF COURSE TO PRINT 

? COURSE 1 



DATE COURSE SCORE WIND 

JUL 3 COURSE 1 77 NONE 
JUL 8 COURSE 1 85 HIGH 



BREAK IN 540 



MAJOR SYMBOL TABLE - GENERAL PURPOSE DIARY 

! 1 

I NAME .. DESCRIPTION I 

I ! 

IK .. COUNT INDICATOR I 

I M . . MAXIMUM NUMBER OF DATA READS I 

I S$< ) ♦, VALUE OF ITEMS I 

I H$< ) . . HEADINGS OF ITEMS I 

IN .. NUMBER OF ITEMS RECORDED FOR EACH TRANSACTIONS I 

I Xl« . . ITEM TO SEARCH I 

I X$ .. VALUE OF ITEM TO SELECT I 

! j 

FUNCTIONS USED 
x j 

I NAME .. DESCRIPTION I 

X j 

I TAB . . FORMATS PRINT LINES I 

I DIM .. SINGLE DIMENSION ARRAYS I 

j j 
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Appendix: Language Features Used 



All programs in this book were developed, tested, and run on an Altair 
8800b Microcomputer System operating under Altair's Revision 4.1 of 
their Disk Extended BASIC. The extended features of this language 
were not used, however, in the creation of these programs. With the 
exception of the MID$ function used in the WORDGAME program 
(explained below), there should be little, if any, difficulty in running 
these programs on your present or projected microcomputer system. 

To further your understanding of the features used, however, and 
to provide information that will help you overcome any unknown com- 
patibility problems, the following language features are explained: 

1. Variable names All variable names have been defined as either 
numeric or alphanumeric. Alphanumeric data names are terminated 
with a dollar sign, $, that is, A0 is numeric whereas A0$ is alpha- 
numeric. 

2. Arrays Arrays have been defined with DIM statements. Altair 
BASIC (by default) will treat any variable as a twelve-position 
array. Care has been taken to insure that all arrays have been ex- 
plicitly dimensioned. Variable dimensioning is also allowed to use 
variable names previously defined. If this usage causes problems, 
replace the variable name in the statement with the number that 
the variable was assigned during data initialization. 

3. TAB Most programs utilize the TAB function for print format- 
ting. The function TAB(x) causes the printer to move to the 
position specified by x. 

4. Integer conversions The integer function (INT) causes the 
truncation of all decimal positions, leaving a whole number. Con- 
sequently, where x = 12.34, INT(x) truncates the value of the 
result to 12. 

5. Random number generator (RND) In Altair BASIC, this func- 
tion returns a random number between and 1 . Because of this 
trait, a conversion was used to provide the required range of num- 
bers. If your system functions differently, convert the equation 
used or provide the appropriate seed to the function that provides 
the values of to 1. For example, TRS-80 BASIC users should pro- 
vide as the seed to RND to insure compatibility. In this case, 
check the symbol table for the seed that is used (normally Y). 
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6. GOSUB This instruction causes branching to a subroutine. 
GOSUB xxx, for instance, would take the next instruction to be 
executed from line number xxx and would continue from that 
point until a RETURN statement was encountered. The RETURN 
statement would cause control to return to the instruction imme- 
diately following the GOSUB. 

7. LEN This function returns the length of the information stored 
at the location. LEN(x) returns the number of characters at x. 

8. MID$ This function is used only in the WORDGAME program. 
Its form is MID$(X, I, J), where J is the number of characters to 
be extracted from the variable X, beginning with the Ith character. 
It was used in the WORDGAME program to extract one character 
at a time from the words to be placed in the puzzle. 
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Using the TRS-80 

in Your Home 

By Charles Sternberg 




A comprehensive book of practical home programs for both the novice and 
experienced 16K Level II TRS-80 Model I owner! You'll find programs for home 
finance, like installment payment and mortgage projections, checkbook 
balancing, financial records and income tax recording; auto maintenance 
schedules and trip planning; meal planning, weight control, supermarket list and 
freezer inventory; scheduling for lawn and plant care, TV watching and chores; 
list programs for Christmas cards, addresses, clubs and collections; and other 
useful programs such as utility bill analysis, health and school records, and paper 
route management. There are also math practice programs; metric, temperature 
and currency conversion programs; and several games and diary programs for 
hobbyists. Each program is documented with a description of its functions and 
operation, a listing in BASIC, a symbol table, sample data, and one or more output 
samples. See how you can put your TRS-80 to work at home! 



Radio Shaek 
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